r - 使用日期序列在函数中扩展数据框

Question

我正在尝试获取一个数据框并将其扩展为函数内的面板数据。

require(lubridate)
require(plyr)

df <- data.frame(group = seq(1, 10))

f <- function(df, sdate, edate) {
  df <- ddply(df, .(group), transform, year = year(seq(ymd(sdate), ymd(edate), by = "year")))
  return(df)
}

f(df, "1945-1-1", "2013-1-1")

这会引发错误：Error in lapply(list(...), .num_to_date) (from #3) : object 'sdate' not found

似乎sdateandedate被正确传递并且在函数中具有正确的类型。

Answer 1

另一种选择是使用do.callwith acall在“sdate”和“edate”可见的环境中构造调用：

f <- function(df, sdate, edate) {
  df <- do.call("ddply",list(df, "group", transform, 
                       year = call("year",x= seq(ymd(sdate), 
                                          to = ymd(edate), by = "year"))))
  return(df)
}

f(df, "1945-1-1", "2013-1-1")
    group year
1       1 1945
2       1 1946
3       1 1947
4       1 1948
5       1 1949
6       1 1950
7       1 1951
8       1 1952

编辑

plyr 风格的解决方案（更简单）

你应该使用plyr::here：

此函数捕获当前上下文，从而更容易将 **ply 与执行特殊评估并需要访问调用 ddply 的环境的函数一起使用。

f <- function(df, sdate, edate) {
   ddply(df, .(group), plyr::here(transform), 
                             year = year(seq(ymd(sdate), ymd(edate), by = "year")))
}

Answer 2

这就是范围界定的问题。这是一种解决方法：

> f <- function(df, sdate, edate) {
+   df <- ddply(df, .(group), 
+               function(x) data.frame(year = year(seq(ymd(sdate), ymd(edate), by = "year"))))
+   return(df)
+ }
> 
> head(f(df, "1945-1-1", "2013-1-1"))
  group year
1     1 1945
2     1 1946
3     1 1947
4     1 1948
5     1 1949
6     1 1950