我有一个看起来像这样的数据框列表
F0001
PoseID Score
1 AAAA_1 -13.70
2 AAAA_2 -9.21
3 AAAA_3 -7.60
4 AAAA_4 -6.28
F0002
PoseID Score
1 AAAB_1 -14.90
2 AAAB_2 -13.92
3 AAAB_3 -13.49
基本上我想为每个数据框的$ Score生成图表并将它们作为图像吐出。
我尝试过的方法之一是将所有数据框导入到列表中。
lst <- mget(ls(pattern='^F\\d+'))
然后在列表中的每个单独数据框上运行hist()
并将其推送到直方图列表中。
hist <- lapply(lst, function(x) hist(x$Score))
然后,想法是将该列表作为保存到文件的单独直方图吐出。看似简单的事情,但此刻它正在打败我。任何R boffins有一个很好的方法来做到这一点?也许是其他方法(例如,在每个单独的数据帧上进行循环,而不是将其添加到列表并对其执行操作)?
答案 0 :(得分:1)
以下文件将名称为image1
,image2
,...的每个文件保存为工作目录中的pdf文件。您也可以将pdf更改为jpeg或png或ps。
lapply(1:2,function(i){
pdf(paste0("image",i,".pdf"))
hist(mtcars[,i])
dev.off()})