我如何将多个单独的图表放在 r 中的一个 pdf 上

Question

我无法弄清楚如何将 6 个单独的条形图放到一个 pdf 中。这是其中一个情节（它们都非常相似）：

    barplot(druhy, ylim = c(0,50), main = "Míváš často chuť na svíčkovou?", col = c("red", "blue", "green", "black", "yellow"))

   legend("topleft", legend = c("ano", "spíše ano", "nevím", "spíše ne", "ne"), fill = c("red", "black", "green", "yellow", "blue"))

下面是图表使用的值：

  print(druhy)

  ano\r\n        ne\r\n     nevím\r\n spíše ano\r\n  spíše ne\r\n 
        4             1             2             5             3

我试过这段代码将它们一起放在一个 pdf 中，但它不起作用。我确定这段代码有问题，但我似乎无法准确找到问题所在。

    pdf('plot.pdf')

  m <- rbind(c(1,2), c(3,4), c(5,6))
  layout(m)
  sapply(seq_along(sp),
   function(x) {
     dd <- sp[[x]]
     m <- t(`rownames<-`(as.matrix(dd[, -(1:2)]), dd[, 1]))
     bp <- barplot(m,ylim=c(0, 0.4),beside=TRUE,col=barcols)
     title(main=names(sp[x]))
     # abline(h=0)
   }
plot(NA,xlim=c(0,1),ylim=c(0,1),ann=FALSE,axes=FALSE)

有没有更好的方法或如何修复此代码，所以结果是一个包含六个并排条形图的 pdf？我是初学者，如果我的问题很愚蠢，我深表歉意。

Answer 1

绘制结束必须用dev.off()表示。这是一个简单的工作示例：

pdf("myOut.pdf")
for (i in 1:10){
  barplot(iris$Sepal.Length)
}
dev.off()

我如何将多个单独的图表放在 r 中的一个 pdf 上

How do i put multiple separate charts onto one pdf in r

r

statistics

bar-chart

gplots