保存来自 R 的地块以与 grid.exchange 一起使用

Question

我想制作一个 3 面板宽 x 8 面板高的复合图形。 每个面板内都有一个图形，需要多个 R 命令才能创建，例如第一个 3 个图形可能是

#1
plot(c(2:20), c(2:20), ylab="", xlab="", axes=FALSE)
par(new=TRUE)
plot(c(1:18, c(1:18), xact="n"), type="l", xlab="", ylab="")

#2
plot(c(2:20), c(2:20), ylab="", xlab="", axes=FALSE)
par(new=TRUE)
plot(c(1:18, c(1:18), xact="n"), type="l", xlab="", ylab="", col=2)

#3
plot(c(2:20), c(2:20), ylab="", xlab="", axes=FALSE, col=3)
par(new=TRUE)
plot(c(1:18, c(1:18), xact="n"), type="l", xlab="", ylab="")

然后我想使用这样的命令并排显示这 3 个：grid.arrange(plot1, plot2, plot3)

我不明白如何将 #1、#2 和 #3 分别保存为 plot1、plot2 和 plot3。 如何保存绘图的示例似乎都基于单个 plot 命令，而不是多个命令来制作 plot。帮助页面说 grob 但没有解释可接受的 grob 可能是什么，或者如何制作它。 我应该截取每个截图并将其另存为 jpeg 文件吗？

谢谢你的帮助。

Answer 1

您可以设置par(mfrow = c(8, 3)) 。 这将在 8 x 3 网格的单个面板中绘制每个 plot。 并且只会在（隐式）调用plot.new时继续绘制下一个 plot。

par(mfrow = c(8, 3))
par(mar = c(0.5, 0.5, 0.5, 0.5)) # Otherwise margins are too large for 24 plots

for(i in 1:24) {
  plot(c(2:20), c(2:20), ylab = "", xlab = "", axes = FALSE, col = 3)
  par(new = TRUE)
  plot(c(1:18), c(1:18), xaxt = "n", type = "l", xlab = "", ylab = "")
}

Answer 2

更新&解决方案：

不要使用grid.arrange() ，不要使用jpeg() ， recordplot() ， pdf()或ggplot ...

下面的代码通过向原始图中添加特征来工作。 然后它有助于（在 RStudio 中）将结果导出为高分辨率 PNG。 我可以在 MS Word 中很好地分别 label 行/列。

par(mfrow=c(1,3))
#1
plot1=plot(c(2:20), c(2:20), ylab="", xlab="", axes=FALSE)
par(new=TRUE)
plot1= plot1 + plot(c(1:18, c(1:18), xact="n"), type="l", xlab="", ylab="")

#2
plot2 = plot(c(2:20), c(2:20), ylab="", xlab="", axes=FALSE)
par(new=TRUE)
plot2 = plot2 + plot(c(1:18, c(1:18), xact="n"), type="l", xlab="", ylab="", col=2)

#3
plot3 = plot(c(2:20), c(2:20), ylab="", xlab="", axes=FALSE, col=3)
par(new=TRUE)
plot3 = plot3 + plot(c(1:18, c(1:18), xact="n"), type="l", xlab="", ylab="")