Question

我根据名为“chr”的数据帧向量，根据分组输出绘图作为png。这会产生很多情节，但我想将它们全部放在一个png中。我在r而不是ggplot2中使用绘图函数。

到目前为止我的代码：

for(jj in ind){
png(paste("/Users/sebastianzeki/Desktop/SequencingScripts/Plots/",jj,".png"))
indic = which(ret$chr == jj)
plot(ret$binRight[indic],ret$SummedZScore[indic],pch=19,xlab="Locus",ylab="Summed    ZScore",type="h",lwd=20, space=0)

dev.off()

如何在一个png（或pdf，如果那更容易）上获得所有图？

Answer 1

假设长度（ind）= 10

png(paste("/Users/sebastianzeki/Desktop/SequencingScripts/Plots/",jj,".png"))
par(mfrow=c(5,2))

for(jj in ind){
  indic = which(ret$chr == jj)
  plot(ret$binRight[indic],ret$SummedZScore[indic],pch=19,xlab="Locus",ylab="Summed ZScore",type="h",lwd=20, space=0)
}
dev.off()

这可以制作一个png文件，或者如果你想制作一个pdf文件

How to print R graphics to multiple pages of a PDF and multiple PDFs?

请查看上面的帖子寻求帮助。

一个简单的例子：

png("temp.png", width = 600, height = 2000)
par(mfrow=c(8,3), mar = rep(0.5, 4), oma = rep(0.5, 4))

for (i in 1:24) {
  hist(runif(20), main = NULL)
}
dev.off()

在r中的一个pdf上放置多个图

1 个答案: