向拼凑图 R 添加 grob

Question

我有一个 returns 拼凑图的函数，我无法对其进行任何更改。我想在上面添加一个 rectGrob() 。当我尝试这样做时，我删除了两个地块。

library(gridExtra)
library(patchwork)
library(ggplot2)

p1 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point()
p2 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) + geom_point()
p3 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width), col = 'blue') + geom_point()

p <- p1 + p2 + p3

grob_top <-   grobTree(rectGrob(gp=gpar(fill='#F0F0F0',col= 'black')), textGrob('P1,P2, P3'))

grid.arrange(grob_top, p, heights = c(0.1, 0.9))

Answer 1

我想你想要：

grid.arrange(grob_top,
             p,
             nrow = 2,
             heights = c(0.1, 0.9))

Answer 2

使用 patchwork::wrap_elements() 比 gridExtra::grid.arrange()

效果更好

patchwork::wrap_elements(grob_top) / 
patchwork::wrap_elements(p) / 
patchwork::wrap_elements(p) + 
patchwork::plot_layout(ncol = 1, heights = c(0.1, 0.45, 0.45))

向拼凑图 R 添加 grob

Adding a grob to patchwork plot R

r

ggplot2

gridextra

patchwork