更改网格布局引擎中GGR绘图周围的空格

在R中，图形引擎在打印的绘图周围添加空白，如果这些绘图没有填满容器的大小。此答案中提供了大量代码示例：

我在这里重复其中一些：

g <- ggplot(animals, aes(x = "", y = Freq, fill = Species)) +
  geom_bar(width = 1, stat = "identity") +
  coord_polar("y", start=0) +
  theme(plot.background = element_rect(fill = "lightblue"))

library(grid)
grob <- ggplotGrob(g)
grid.newpage()
grid.draw(grob)

---

g实现所需结果的一个选项是使用所需填充颜色绘制一个
rectGrob
，并在其顶部绘制ggplot：

set.seed（42）
动物这绝对是完美的-完全解决了这个问题，非常感谢！！