如何使用 r 中的 ggplot2 和 gridExtra 包将一个 grob 对象排列在另一个对象中

Question

我想知道如何将一个 grob 对象（table）排列在另一个对象中。考虑以下示例：

library(ggplot2)
library(gridExtra)

p1 <- qplot(data=mtcars, x = mpg, y = hp, facets = ~ hp, geom="point")
t1 <- tableGrob(head(mtcars))
print(arrangeGrob(p1, t1))

这产生：

我想做的是将 table 放在另一个对象中，如下所示：

是否可以使用 gridArrange 或 grid and/or gridExtra 中的其他方法来做到这一点？

Answer 1

这是使用网格函数的一种可能性：

png("SO.png", width = 1440, height = 720)

plot(p1)

vp <- viewport(x = 0.95, y = 0.02, 
               width = unit(0.4, "npc"), height = unit(0.2, "npc"),
               just = c("right", "bottom"))
pushViewport(vp)
grid.draw(t1)

dev.off()

如何使用 r 中的 ggplot2 和 gridExtra 包将一个 grob 对象排列在另一个对象中

How to arrange one grob object inside another with ggplot2 and gridExtra packages in r

r

ggplot2

gridextra