如何增大R语言中geom_waffle绘制的华夫图瓦片尺寸？

针对分面华夫图瓦片过小的问题，可通过以下几种方式自定义面板空间、放大瓦片，提升可视化清晰度：

1. 增大绘图输出尺寸（最直接有效） #

分面后单个面板的瓦片大小和整体画布尺寸直接相关，通过ggsave()指定更大的宽高，能让每个面板获得更多空间，瓦片自然放大：

# 先定义绘图对象
waffle_plot <- ggplot(haunted_places_top_5, aes(fill = last_word, values = count)) +
  geom_waffle(color = "white", size = 0.25, na.rm = TRUE, nrows = 10) +
  facet_wrap(~last_word, nrow = 2) +
  theme_fivethirtyeight() +
  theme(panel.grid.major.x = element_blank(),
        panel.grid.major.y = element_blank(),
        axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        legend.position = "none") +
  coord_fixed(ratio = 1)

# 保存时指定大尺寸画布
ggsave("haunted_waffle.png", waffle_plot, width = 12, height = 8, dpi = 300)

可根据需求调整width和height数值，数值越大，瓦片尺寸越大。

2. 优化分面布局，减少每行面板数量 #

调整facet_wrap()的nrow参数，减少每行的面板个数，让单个面板占用更多横向/纵向空间：

ggplot(haunted_places_top_5, aes(fill = last_word, values = count)) +
  geom_waffle(color = "white", size = 0.25, na.rm = TRUE, nrows = 10) +
  facet_wrap(~last_word, nrow = 1) +  # 改为1行展示5个面板，每个面板更宽
  theme_fivethirtyeight() +
  theme(panel.grid.major.x = element_blank(),
        panel.grid.major.y = element_blank(),
        axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        legend.position = "none",
        panel.spacing = unit(0.8, "cm")) +  # 调整面板间距避免拥挤
  coord_fixed(ratio = 1)

若纵向空间充足，也可设置ncol = 2，让面板按2列排列，单个面板的高度和宽度都会更大。

3. 调整华夫图的行数参数 #

修改geom_waffle()的nrows参数，减少总行数，总高度固定时，行数越少，单个瓦片的高度会相应增加：

ggplot(haunted_places_top_5, aes(fill = last_word, values = count)) +
  geom_waffle(color = "white", size = 0.25, na.rm = TRUE, nrows = 5) +  # 从10行改为5行
  facet_wrap(~last_word, nrow = 2) +
  theme_fivethirtyeight() +
  theme(panel.grid.major.x = element_blank(),
        panel.grid.major.y = element_blank(),
        axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        legend.position = "none") +
  coord_fixed(ratio = 1)

这种方式会改变华夫图的形状，但能直接放大瓦片尺寸，适合对布局形状要求不严格的场景。

4. 减少面板间距，利用更多空间 #

通过theme()中的panel.spacing参数缩小面板之间的空白，让每个面板能占用更多画布空间：

theme(
  # ... 其他主题设置
  panel.spacing = unit(0.3, "cm")  # 缩小面板间距，默认间距较大
)

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