Question

我正在使用'plm'软件包进行一些模拟。我需要对给定数据集中的所有变量执行“内部”转换。 “ 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(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)

并给出错误：“ UseMethod（” Within“）中的错误：没有适用于“内部”的适用方法应用于类“ c（'double'，'numeric'）”的对象。看起来，“套用”循环遍历变量的方式缺少使“ 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的事实（with()也是这样）并且可以通过两种不同的方式查看class属性，从而以显示的方式看到它。

如果您想使用lapply，则可以通过选项as.list的{{1}}（plm:::as.list.pdata.frame）的pdata.frame方法将其强制转换为列表，如下所示：

keep.attributes

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

1 个答案: