我正在尝试使用 mapply 将月份添加到数据框 a 和 b 列中的当前日期。这是创建示例数据框的代码:
library(lubridate)
a <- as.Date(c("2012-01-11","2012-06-30","2012-04-18"))
b <- as.Date(c("2013-04-21","2012-03-22","2012-05-01"))
df <- data.frame(a,b)
我可以用
mapply("+",df, c(30,30))
将 30 天添加到两列日期。但是,当我尝试使用命令 mapply("%m+%",df, months(1:2))
时我收到错误消息:Error in .setupMethodsTables(fdef, initialize = TRUE) : no slot of name "group" for this object of class "derivedDefaultMethod"
是否可以将 mapply 与 %m+% 运算符一起使用?
最佳答案
在我 S4 无知的眼中,这似乎是 lubridate 包和 %m+%
方式的问题。方法被构造。
看着 the source ,
看来是未导出的函数.quick_month_add
会做你想做的
mapply(lubridate:::.quick_month_add,df,months(1:2), SIMPLIFY = FALSE)
$a
[1] "2012-01-11" "2012-06-30" "2012-04-18"
$b
[1] "2013-04-21" "2012-03-22" "2012-05-01"
请注意
SIMPLIFY
必须设置为 FALSE
否则,您将获得数字矩阵,因为在简化为矩阵时删除了 Date 类。或者,
Map(lubridate:::.quick_month_add,df,months(1:2))
关于r - "%m %"操作符与 mapply,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14819362/