Question

我有60个数据集将数据集1标记为数据集60 所有数据集都以相同的方式构建，但具有不同的数据。我想从这些数据集中获取2个变量的散点图，并导出到60个不同的pdf文件。我尝试了下面的代码，我得到了60个pdf文件，但它们都是相同的

 for (i in 1:60)
 {
 pdf(sprintf("C:/Users/ME/Desktop/WWD/WWD-Excel/Print/myout[%d].pdf", i))
 dataset<-read.csv(sprintf("C:/Users/ME/Desktop/WWD/WWD-Excel/CSV/dataset[%d].csv", i), header = T, sep = ",", na.strings = "NA")
 plot(dataset$hhexppc, dataset$foodshare)
 dev.off()
 }

Answer 1

因为您已阅读dataset，并且您正在绘制datasetpoor。学会阅读你的作品！

Answer 2

我设置了一个名为tmpcsv的小型测试目录，其中包含data1.csv，data2.csv和data3.csv，运行此代码...

setwd("~/R/misc")
for (i in 1:3) {
    pdf(sprintf("print/myout%d.pdf",i))
    dataset <- read.csv(sprintf("tmpcsv/data%d.csv",i))
    plot(y~x,data=dataset)
    dev.off()
}

...并获得了反映数据的三个文件print/myout[1-3].pdf。所以...我无法重现你的问题。

循环pdf来自类似的数据集

2 个答案: