R-使用重塑包中的演员来转换数据框列表

Question

我已经创建了这个测试框架。

library(lubridate)
set.seed(23) 

date_list = seq(ymd('2000-01-01'),ymd('2003-12-31'),by='day')
testframe = data.frame(Date = date_list)
testframe$Day = substr(testframe$Date, start = 6, stop = 10)
testframe$ABC = rnorm(1461)
testframe$Year = as.numeric(format(testframe$Date,'%Y'))
testframe$Date = NULL
testframe = testframe[,c(ncol(testframe),1:(ncol(testframe)-1))]

我的问题是如何在数据帧列表中执行此命令。这适用于一个数据框：

library(reshape)
testframe_t = cast(testframe, Year ~ Day)

但是当我创建数据帧列表时，它不起作用。我的错误在哪里？

df_list = list(testframe, testframe, testframe)

lapply(df_list, function(x) {
  cast(df_list$x$Year ~ df_list$x$Day)})

有什么想法吗？

Answer 1

这是dplyr / tidyr / purrr方法。

Did not find handler method for [/path/to/api]