r - 使用 ggplot_build 改变 ggplot2 图并在 plot_grid 中使用它

Question

我想使用 ggplot_build 和 ggplot_gtable 函数更改 R 中的 ggplot2 绘图，然后在 plot_grid< 中使用它.

制作情节的示例代码:

library(ggplot2) 
library(cowplot)

p1 <- ggplot(iris) +
  aes(x = Sepal.Length, y = Sepal.Width, colour = Species) +
  geom_point()
p2 <- ggplot(iris) +
  aes(x = Petal.Length, y = Petal.Width, colour = Species) +
  geom_point()

plot_grid(p1, p2)

然后我使用 ggplot_build 和 ggplot_gtable 更改 p1:

q1 <- ggplot_build(p1)
q1$data[[1]]$colour <- "black"
q1 <- ggplot_gtable(q1)

plot(q1) 绘制了我想要的图，但我不能在 plot_grid 中使用它和 plot_grid(q1, p2)。我该如何解决这个问题？

编辑:代码应该确实有效。完整的 R 重新启动后，一切都按预期工作。应该先尝试这个，抱歉!

Answer 1

当调用打印/绘制 ggplot2 时，后台真正发生的是:

data <- ggplot_build(x)
gtable <- ggplot_gtable(data)

其中 x 是您的 ggplot2 对象(p1 og p2)。 (参见 ggplot2:::plot.ggplot。)其他例程使用 ggplotGrob(x)，它与 ggplot_gtable(ggplot_build(x)) 同义。

短篇小说:gtable 不是 ggplot2 对象。这是一个抢劫对象。并且没有为 grob 对象定义绘图或打印方法。它们必须改为使用 grid 包绘制。

要绘制您的q1 和q2，请使用:

library(grid)
grid.newpage()
grid.draw(q1)