在R中循环并保存多个png文件

时间:2015-04-19 06:10:47

标签: r ggplot2

我正在尝试在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。

0 个答案:

没有答案