Question

我希望通过for循环将多个ggplots保存为jpeg。但是，当我尝试调整我为基本绘图命令编写的代码时，我没有输出（没有任何内容保存到我的工作目录中）。

例如，这很有效：

library(cowplot)
library(ggplot)

X<-c(1,2,3,4,5,6,7,8,9)
Y1<-c(2,3,4,4,3,2,4,5,6)
Y2<-c(3,4,5,3,2,1,1,2,3)
Y3<-c(4,5,6,7,8,9,8,7,6)

DF<-data.frame(X,Y1,Y2,Y3)



for(i in 1:3){


    jpeg(paste(i,".jpeg",sep=""))
    plot(DF[,1],DF[,i+1])
    dev.off()
}

我最终将三个jpeg文件保存到我的工作目录。

我不确定如何为i正确索引ggplot调用，但即使这样也应该返回同一个情节的3个实例：

for(i in 1:3){


    jpeg(paste(i,".jpeg",sep=""))
    ggplot(data=DF,aes(x=X,y=Y1))+geom_line()
    dev.off()
}

最后，我希望将多个图组合到一个jpeg上，然后像这样保存多个jpeg：

for(i in 1:3){


    jpeg(paste(i,".jpeg",sep=""))
    A<-ggplot(data=DF,aes(x=X,y=Y1))+geom_line()
    B<-ggplot(data=DF,aes(x=X,y=Y2))+geom_line()
    C<-ggplot(data=DF,aes(x=X,y=Y3))+geom_line()
    plot_grid(A,B,C)

    dev.off()
}

因此，此绘图还应返回同一绘图的3个实例，所有实例都具有不同的索引文件名。但是，我一无所获。

所以我的问题是为什么在这个for循环中通用绘图和ggploting之间存在差异。如何从上面的ggplots中保存多个jpeg？

Answer 1

怎么样

library(gridExtra) # gridExtra::arrangeGrob

for(i in 1:3) {

    jpeg(paste0(i, ".jpg"))
    A <- ggplot(data = DF, aes(x = X, y = Y1)) + geom_line()
    B <- ggplot(data = DF, aes(x = X, y = Y2)) + geom_line()
    C <- ggplot(data = DF, aes(x = X, y = Y3)) + geom_line()
    grid.arrange(arrangeGrob(A, B, C, ncol = 3))
    dev.off()

}

注意：此解决方案不会生成cowplot的边注释（＆＃34; A＆＃34;，＆＃34; B＆＃34;，＆＃34; C＆＃34;。）

Answer 2

使用您的代码：

for(i in 1:3){


    jpeg(paste(i,".jpeg",sep=""))
    A<-ggplot(data=DF,aes(x=X,y=Y1))+geom_line()
    B<-ggplot(data=DF,aes(x=X,y=Y2))+geom_line()
    C<-ggplot(data=DF,aes(x=X,y=Y3))+geom_line()
    k<-plot_grid(A,B,C)

    ggsave(k, filname = "path/finalplot.jpeg")
}

查看?ggsave以查看其他参数，以指定height和width

使用for循环将多个ggplot保存为jpeg

2 个答案: