Question

我正在尝试制作一个每页有多个绘图的pdf，并且多个页面长。我使用multiplot function能够在一个页面上绘制多个图形。

使用循环我创建了一个绘图列表，然后在多重绘图函数中调用该列表将其写入PDF。

status = dat$status

plotList <- list()
for (i in 2:31){
  ylabel= GeneID_Probe[2,i]
  IDlabel = paste("(",GeneID_Probe[1,i],")",sep ="")
  ylabel = paste(ylabel, IDlabel)
  plot = ggplot(dat, aes(x=dat[,1], y=dat[,i], color = dat[,1],shape = dat[,1])) + geom_jitter(position=position_jitter(0.2), cex =4.2)
  plot = plot + stat_summary(fun.data=mean_sdl, mult=1, geom="pointrange", color="red", cex = 1.2) +theme_minimal() +scale_color_brewer( palette = 'Dark2') + scale_x_discrete(labels=c("G1","G2"))
  plot = plot + ylab(ylabel) + xlab("") + theme(legend.position="none")
  plotList[[i-1]] <- plot
  print(plot)
}

pdf('eg.pdf', width = 8.3, height = 11.7) 
multiplot(plotlist = plotList, cols = 2)
dev.off()

Multiplot试图在一页上绘制列表中的所有图。

我的想法是，我可以将plotList拆分为每页所需图表的数量（6）。但我确信必须有一种方法可以用多色函数来做到这一点吗？

乘法的多重图 - ggplots

0 个答案: