我正在尝试在R中保存多个png文件(图)并且无法保存任何文件。
我已经在这里阅读了类似的解决方案:
http://www.r-bloggers.com/automatically-save-your-plots-to-a-folder/
基本上我实现了同样的想法,我无法让它运行。
这是我的一些数据,一个名为“new_bic”的数据框:
time electrode amps
3321 11.33760 A1_21 0.02445126
3322 11.33792 A1_85 0.02156030
3323 11.33844 A1_82 0.02739474
3324 11.33876 A1_57 0.02715583
3325 11.33920 A1_47 0.02292635
3326 11.33976 A1_68 0.02581157
3327 11.34032 A1_21 0.03866543
3328 11.34060 A1_28 0.02337550
3329 11.34104 A1_53 0.03956954
3330 11.34216 A1_57 0.04843832
这是我数据的一个简单部分。但我正在为每个电极制作简单的线图。每个电极每隔几毫秒就会有一个“放大器”记录。
无论如何,这是我正在运行的代码打印单个绘图,它工作正常,并将绘图保存在我当前的工作目录中。 例如,假设我想要一个电极“A1_21”的图,这就是我要做的事情:
elec <- "A1_21"
new_data <- new_bic[new_bic$electrode == elec,]
png(paste(elec,".png",""))
new_p <- ggplot(new_data, aes(x=time, y=amps))
new_p + ggtitle(elec) +geom_line()
dev.off()
这很好用。但实际上有62个电极,所以我真正想要的是这样的东西
for (sel_electrode in unique(new_bic$electrode))
{
new_data <- new_bic[new_bic$electrode == sel_electrode,]
png(paste(sel_electrode,".png",""))
new_p <- ggplot(new_data, aes(x=time, y=amps))
new_p + ggtitle(sel_electrode) +geom_line()
dev.off()
}
但这不起作用。当我运行此代码时,会打印出NOTHING。我觉得这很微不足道。我发出一个SOS。