2

我有一个包含许多 csv 文件的目录。我想将它们读入然后在一个数据框中创建一列的摘要。

getSummary<-function(df){
   summary(df$Names)
}

filenames<-list.files(path, pattern="*.csv", full.names=T)
ldf<-lapply(filenames, read.csv, header=T)
results<-lapply(ldf, getSummary)

它返回结果如下:

print(results)
[[1]]  a   b   c  d
      100  2   3  4
[[2]]  a   b   c  d
      97   4   2  6

我想要的是这样的

filename  a   b   c   d
1.csv    100  2   3   4
2.csv     97  4   2   6

有人可以帮忙吗??

谢谢。

4

1 回答 1

3

我想你可能想要do.call(rbind,results)。但这只有在每个组件至少有一个字母时才有效(即所有列必须存在于每个字母中)。如果没有,您可以使用rbind.fillfrom plyr代替。

我还建议table用于此目的的功能比summary.

于 2013-06-07T13:04:49.253 回答