使用for循环保存多个ggplots [英] Save multiple ggplots using a for loop

问题描述

我想自动生成许多ggplots:

I want to automate the generation of a number of ggplots:

通用数据集:

mydata<-data.frame(matrix(rnorm(100),ncol=5))
names(mydata)<-c("Tijd","X1","X2","X3","X4") 

指定变量以包括:

Start=2
Stop=5

列表以将图保存在以下位置:

List to save the plots in:

gvec<-vector("list",length=length(Start:Stop))

创建图:

for(i in Start:Stop){
  graphy<-ggplot(mydata,aes_string(x="Tijd",y=names(mydata)[i]))+geom_point()+mytheme
  gvec[[i-Start+1]]<-graphy
}

保存地块:

for(i in Start:Stop){
tiff(paste0("Test/Residu/Plots/Prei/mydata.",names(mydata)[i],"09.14.tiff"),width=720,height=720)
gvec[[i-Start+1]]
graphics.off()
}

生成情节列表；我也可以手动保存图.但是，使用最后一个循环，生成的文件全部为空白.我不知道原因.

The list of plots is generated; I can save the plots manually as well. However, using the last loop the files generated are all blank. I can't figure out the reason for this.

根据罗兰(Roland)的建议，我尝试了 print(gvec[[i-Start+1]])，但是我仍然得到空白文件作为输出.

As per Roland's suggestion I tried print(gvec[[i-Start+1]]) but I still get blank files as output.

推荐答案

这里是在循环中创建ggplots的完全可复制的示例.

Here is a fully reproducible example of creating ggplots in a loop.

# 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()

这篇关于使用for循环保存多个ggplots的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！