请问各位,用ggplot产生一个循环的图片list,然后利用ggarrange存储结果到一页,图片总是最后一张是为什么
pdf("/Users/liangtang/Desktop/Test2.pdf")
plot <- list()
for (i in 1:6){
data <- gene12.anno.ear.Rda[i, ][,5:16]
long.data <- melt(data)
plot[[i]] <- ggplot(long.data, aes(x=long.data$variable, y=long.data$value)) +
geom_line(aes(group=1)) +
geom_point(size=2, shape=20) +
theme_bw()
}
do.call(ggarrange ,gene_plot)
dev.off()