如何使用R的waffle包减少华夫饼图的白色边距？

waffle包基于ggplot2构建，所以可以通过ggplot2的主题系统直接调整图表四周的空白边距，同时优化标题与图表的间距。以下是具体方案：

直接调整主题边距 #

将华夫饼图生成后，叠加theme()参数修改边距：

# 生成华夫饼图对象
age_waffle <- waffle(table(dat$Age.Group),
                     rows = 5,
                     title = "Demographic Age Groups")

# 缩小四周空白+拉近标题与图表的距离
age_waffle +
  theme(
    # plot.margin参数顺序：上、右、下、左，单位可选mm/cm/in
    plot.margin = margin(3, 3, 3, 3, unit = "mm"),
    # 调整标题下方的空白，让标题更贴近图表
    plot.title = margin(b = 4, unit = "mm")
  )

R Markdown编织时的额外优化 #

如果是在R Markdown中使用，还可以在代码块中设置fig.width和fig.height来控制图表整体尺寸，进一步减少冗余空间：

```{r fig.width=3.5, fig.height=2.5}
waffle(table(dat$Age.Group), rows=5, title="Demographic Age Groups") +
  theme(plot.margin = margin(3,3,3,3,"mm"),
        plot.title = margin(b=4,"mm"))

## 可选：优化图例边距
如果图例周围也有过多空白，可额外添加图例边距调整：
```r
age_waffle +
  theme(
    plot.margin = margin(3,3,3,3,"mm"),
    plot.title = margin(b=4,"mm"),
    legend.margin = margin(0,0,0,0,"mm")
  )

内容的提问来源于stack exchange，提问作者AyunaYanna