调整r中grob对象的边距

我使用

cowplot

包创建了一个grob对象。我正在将

grid.lines（）

和

grid.text（）

对象添加到已完成的grob中，但当它从cowplot中出来时，它填充了整个页面。如何调整grob对象的边距以在边缘周围添加一些空白？下面是示例代码

library(ggplot2)
library(cowplot)

p1 <- ggplot(mtcars, aes(disp, mpg)) + 
  geom_point()
p2 <- ggplot(mtcars, aes(qsec, mpg)) +
  geom_point()
p3 <- ggplot(mtcars, aes(disp, mpg)) + 
  geom_point()
p4 <- ggplot(mtcars, aes(qsec, mpg)) +
  geom_point()
plot_grid(p1, p2, p3, p4, ncol = 2 ,nrow = 2,align="hv")

库（ggplot2）
图书馆（cowplot）
p1您只需使用
主题（plot.margin=…）
，就像在ggplot中一样：

库（ggplot2）
图书馆（cowplot）
你是个巫师。非常感谢。没有意识到可以将
ggplot
参数传递到
plot\u grid
。