R 使用相同的代码一次为其他文件生成相同的图形

我已经为一个特定的文件编写了代码，现在我想为其他类似的数据文件生成相同类型的图形和文件，我编写了如下命令，但是，它不起作用。。。 当我插入这些代码时，R只为文件“八”生成了一个绘图，它说明了我的错误（见下文） 我已经编辑和检查了很多次我的代码，但仍然无法找出它的错误…你能帮我吗

我真的非常感谢你的帮助

my.files <- list.files()
for (i in 1: length(my.files)) {
temp.dat <- read.csv(my.files[i])
eight <- read.csv(file="8.csv", header=TRUE, sep=",")
eightout <- subset(eight, inout=="Outgoing from panel hh" & o_duration>0, select=c(inout, enc_callee, o_duration))
f <- function(eightoutf) nrow(eightoutf)
eightnocalls <- ddply(eightout,.(enc_callee),f)
colnames(eightnocalls)[2] <- "nocalls"
eightout$nocalls <- eightnocalls$nocalls [match(eightout$enc_callee, eightnocalls$enc_callee)]
eightout=data.frame(eightout,"time"=c(1:nrow(eightout)))
M <- plot(eightout$time,eightout$nocalls)
pdf(paste(Sys.Date(),"_",my.files[i],"_.pdf", sep=""))
plot(temp.dat$time, temp.dat$nocalls, main=my.files[i])
dev.off() }

---

my.files尝试在
plot
命令之后插入
dev.off（）
？（如果你想要一堆单独的文件。如果你想要一个大的绘图文件，那么在开始循环之前打开PDF文件，在循环结束后关闭。）

请使用上述代码的清理版本重试

my.files <- list.files("/E/Data")
for (i in seq_along(my.files)) {
  temp.dat <- read.csv(my.files[i])
   seven <- subset(alldata, aserno==7, select=c(I,C,D),
                     I=="o" & D>0)
   sevennumber <- ddply(sevenout,.(C), nrow)
   colnames(sevennumber)[2] <- "number"
   sevenout$number <- sevennumber$number[match(sevenout$C,sevennumber$C)]
   sevenout$time <- seq(nrow(sevenout))
   pdf(paste(Sys.Date(), my.files[i], "M.pdf", sep="_"))
   with(sevenout,plot(time, number, main=my.files[i])
   dev.off()  ## CLOSE pdf
   write.csv(sevenout,paste(Sys.Date(),
       my.files[i],"new_data.pdf”,sep="_"), row.names=FALSE)
}

my.files不…它不工作…R说“dev.off（）中的错误：一个设备无法关闭（无效设备）”+1我没想到它会将它们全部推到一个分页文件中。。。谢谢。@user，这是因为您已经打开了一个设备。键入dev.off（），直到将其全部关闭。然后再运行一次@Brandon Bertelsen抱歉，我不太明白…你说我打开了一个设备是什么意思？我应该关闭什么？我只打开了R一次…（我是R新手，非常感谢您的耐心！）dev.off（）中的错误：无法关闭设备1（空设备）？？这是什么意思？请参阅下面我关于故障排除的评论。如果没有一个可复制的示例，就不可能调试它，并且尝试远程调试非常令人沮丧。您的代码实际上对我来说没有多大意义，因为它读取的是
temp.dat
，但随后似乎没有将其用于任何后续操作。恐怕我已经没有时间和耐心了。。。很抱歉