R语言waffle绘图报错：手动颜色不足，如何自动分配所需颜色？

问题原因 #

你的数据包含52个不同类别（letters列），而waffle默认的离散颜色尺度仅提供8种颜色，因此出现"Insufficient values in manual scale"的错误。以下是几种自动生成足够颜色的解决方案：

方法1：使用色盲友好的离散调色板（推荐） #

利用ggplot2的scale_fill_viridis_d()函数，它会根据数据中的类别数量自动生成足够的、区分度高的颜色，且对色盲友好：

library(ggplot2)
library(waffle)

# 生成可重复的数据
set.seed(123)
letters = replicate(52, paste(sample(LETTERS, 10, replace=TRUE), collapse=""))
# 确保数值非负（waffle不支持负数）
values = pmax(rnorm(52, 100, 100), 0)
my_data = data.frame(letters, values)

# 绘制华夫图并自动适配颜色
waffle(my_data, size = 0.6, rows = 10) +
  scale_fill_viridis_d(option = "plasma")

方法2：手动生成指定数量的颜色 #

使用scales::hue_pal()函数生成与类别数量匹配的颜色，再通过scale_fill_manual()设置：

# 生成与数据行数一致的颜色
custom_colors = scales::hue_pal()(nrow(my_data))

waffle(my_data, size = 0.6, rows = 10) +
  scale_fill_manual(values = custom_colors)

方法3：循环使用ColorBrewer调色板 #

如果需要使用预设的调色板风格，可使用scale_fill_brewer()，当类别数超过调色板颜色数量时，会自动循环复用：

waffle(my_data, size = 0.6, rows = 10) +
  scale_fill_brewer(palette = "Set3")

额外注意 #

由于你用rnorm()生成的values可能包含负数，而waffle包无法处理负数数值，建议用pmax()将数值转为非负，避免额外报错。

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