ggplot2中如何扩展支持12类以上变量的离散配色调色板

使用scale_fill_brewer(palette = "Paired")配色时，若分类变量数量超过12，会触发以下警告：

Warning in RColorBrewer::brewer.pal(n, pal) :
  n too large, allowed maximum for palette Paired is 12
Returning the palette you asked for with that many colors

以下是不使用连续色阶的前提下，支持更多分类数量的离散配色调色板方案：

• 基于原有Paired调色板扩展自定义色阶
  如果需要保留原Paired调色板配对色、高区分度的风格，可以用colorRampPalette()对原有12色做插值扩展，无最大分类数限制。示例代码：

  library(RColorBrewer)
  # 生成可输出任意数量颜色的调色板函数
  extended_paired <- colorRampPalette(brewer.pal(12, "Paired"))
  # ggplot调用示例，括号内填实际分类数量，比如共18个分类就填18
  ggplot(your_data, aes(fill = your_category_var)) +
    geom_bar() +
    scale_fill_manual(values = extended_paired(18))
  

• 使用R内置多分类专用调色板
  R 4.0及以上版本内置palette.colors()函数，提供专门为多分类离散场景设计的调色板：其中Polychrome 36最多支持36个分类，Alphabet最多支持26个分类，所有颜色都经过可区分度校验。示例代码：

  # 取20个Polychrome 36调色板颜色
  fill_colors <- palette.colors(n = 20, palette = "Polychrome 36")
  # ggplot调用
  scale_fill_manual(values = fill_colors)
  

• 使用ggthemes包的Tableau系列调色板
  ggthemes包提供了Tableau软件原生的离散调色板，其中Tableau 20支持最多20个分类，色彩柔和辨识度高，适合正式报告场景。示例代码：

  library(ggthemes)
  # 直接在ggplot中调用
  scale_fill_tableau(palette = "Tableau 20")
  

• 高分类数场景用随机高区分度调色板
  如果分类数超过25，可以用randomcoloR包生成指定数量的离散色，生成逻辑会自动规避色相、饱和度过近的颜色，保证不同类别可区分。注意需要固定随机种子保证结果可复现，示例代码：

  library(randomcoloR)
  set.seed(123) # 固定种子，保证绘图颜色可复现
  # 生成28个高区分度颜色
  fill_colors <- distinctColorPalette(k = 28)
  # ggplot调用
  scale_fill_manual(values = fill_colors)
  

注意：分类数超过20时建议人工核对相邻颜色的区分度，对辨识度差的个别色值可以手动替换调整。

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