R 和 'plm' 包：如何使用 lapply 遍历 'pdata.frame' 对象的列

Question

我正在使用 'plm' 包进行一些模拟。我需要对给定数据集中的所有变量执行 "within" 转换。 'for' 循环工作正常，而 'lapply' 版本则不行。我将数据集创建为：

library(plm)
data<- data.frame(replicate(10, runif(100)))
pdata <- pdata.frame(data, index=10)
varlist <- names(pdata)[names(pdata)!=("id") & names(pdata)!="time"]

我可以运行对单个变量进行 'within' 转换，例如：Within(pdata$X1) 有效。或者我可以运行一个 'for' 循环，这也有效：

pdata.with2 <- pdata[, varlist]
for(i in 1:ncol(pdata.with2)){
    pdata.with2[,i]= Within(pdata[,i])
}

lappy版本失败：

pdata.with  <-  lapply(pdata[, varlist], Within)

并给出错误："Error in UseMethod("Within") ：没有适用于 'Within' 的方法应用于 class "c('double', 'numeric')" 的对象。 'lapply' 循环遍历变量的方式似乎遗漏了一些构成 class "pseries" "numeric" 列的属性。举个例子

class(pdata$X1)

给出

[1] "pseries" "numeric"

而

lapply(pdata[, varlist], class)

给予

$X1
[1] "numeric"
...

我的问题：有没有办法在 'pdata.frame' 对象上使用 'lapply'？

Answer 1

lapply 以不同的方式访问 pdata.frame 是正确的，这是由于 pdata.frame 当前是如何定义的（[=14= 也是如此） ])，您可以通过两种不同的方式查看 class 属性，以显示的方式看到这一点。

如果你想使用 lapply，你可以先通过 as.list (plm:::as.list.pdata.frame) 的 pdata.frame 方法和选项 keep.attributes 像这样：

res <- data.frame(lapply(as.list(pdata[ , varlist], keep.attributes = TRUE), Within))
all.equal(pdata.with2, res, check.attributes = FALSE)

R 和 'plm' 包：如何使用 lapply 遍历 'pdata.frame' 对象的列

R and 'plm' package: how to use lapply to loop through columns of a 'pdata.frame' object

r

apply

plm