R语言 实现在循环中输出图片的操作

今天在循环导出图片时，遇到了一个问题：

使用r语言导出图片的代码：

setwd("e://r")
jpeg(file="a.jpeg")
print(plot(peo$x, peo$y, pch=peo$s))
dev.off()

但是若是将此代码运用到循环之中，则只会出来一张图a.jpeg

想了好久原因，发现……..！！！！

命名方法不对啊！！！

只有一个名字！！！当然不行啊！！！

于是搜索如何循环命名…

找到了老朋友paste()

yourfilename=paste("a",i,".jpeg",sep="")
jpeg(file=yourfilename)

搞定！

补充：r语言 循环作图

我就废话不多说了，大家还是直接看代码吧~

setwd("c:\\users\\administrator\\desktop\\pic")
# plot separate ggplot figures in a loop. 
library(ggplot2) 
 
# make list of variable names to loop over. 
var_list = combn(names(iris)[1:3], 2, simplify=false) 
# make plots. 
plot_list = list() 
for (i in 1:3) { 
  p = ggplot(iris, aes_string(x=var_list[[i]][1], y=var_list[[i]][2])) + 
    geom_point(size=3, aes(colour=species)) 
  plot_list[[i]] = p 
} 
# save plots to tiff. makes a separate file for each plot. 
for (i in 1:3) { 
  file_name = paste("iris_plot_", i, ".tiff", sep="") 
  tiff(file_name) 
  print(plot_list[[i]]) 
  dev.off() 
} 
 
# another option: create pdf where each page is a separate plot. 
pdf("plots.pdf") 
for (i in 1:3) { 
  print(plot_list[[i]]) 
} 
dev.off() 

补充：r语言-循环产生变量名并赋值，应用到 ggolot2 循环作图

问题的起源来自，想要批量出数十张组合好的图。

实现过程中，最大的问题是如何实现：循环产生变量名，并对其将ggplot的一长段作图代码传送给该变量名。

最终使用assign函数解决了

首先产生1000个字符串格式的备用变量名：

p <- c(paste0('p',1:1000))

接下来，只需写个循环即可。

for (i in 1:1000) {
  assign(p[i],ggplot(dat,aes(x=x,y=y))
}

以上为个人经验，希望能给大家一个参考，也希望大家多多支持。如有错误或未考虑完全的地方，望不吝赐教。