如何使用scale_fill_viridis标准化条形图颜色顺序，保证跨图表颜色一致？

问题核心在于scale_fill_viridis_d()会根据当前数据的离散值数量动态分配颜色，导致不同选项数的问题颜色映射不一致。要实现固定颜色对应固定选项位置，需要手动预定义覆盖所有可能选项（1-16个）的viridis颜色映射，再用手动颜色刻度替代动态的viridis离散刻度。

步骤1：预定义固定颜色映射 #

先生成16种viridis颜色（对应最多16个选项），并给每个选项位置编号命名：

# 生成16种viridis色调，direction=1保持默认从蓝到黄的顺序
fixed_viridis_cols <- viridis::viridis(n = 16, direction = 1)
# 给颜色命名，对应选项的位置编号（1到16）
names(fixed_viridis_cols) <- as.character(1:16)

如果你的Response变量是文本标签（如"Yes"/"No"），需要将所有问题的选项标签按统一顺序整理，再把颜色列表的名字换成对应的标签，示例：

# 假设所有问题的选项按统一顺序排列，补充完整16个标签
option_labels <- c("No", "Yes", "选项3", "选项4", ..., "选项16")
names(fixed_viridis_cols) <- option_labels

步骤2：修改ggplot代码 #

用scale_fill_manual()替代scale_fill_viridis_d()，指定预定义的颜色映射，并设置drop=FALSE确保即使当前问题没有某些选项，颜色映射依然保留：

# 提前定义固定颜色映射（放在所有绘图代码之前）
fixed_viridis_cols <- viridis::viridis(n = 16, direction = 1)
names(fixed_viridis_cols) <- as.character(1:16)

an_inhome_graph <- ggplot(data = an_inhome_df, aes(x = Response, y = n,
                                                   fill = Response,
                                                   tooltip = paste(n, "Participants"))) +
  geom_bar_interactive(stat = "identity", show.legend = FALSE) +
  ggtitle(paste("Q16: Do animals come inside the place where you live?"))+
  # 使用手动固定颜色映射，drop=FALSE避免未出现的选项被移除映射
  scale_fill_manual(values = fixed_viridis_cols, drop = FALSE) +
  scale_x_discrete(labels = c("No", "Yes"))+
  labs(x = NULL, y = NULL) +
  theme(
    text = element_text(family = "serif", colour = "#5EB9D6", size=12),
    axis.text = element_text(family = "serif", colour = "#5EB9D6", 
                             size=12, angle=90),
    legend.position = NULL,
    plot.background = element_rect(fill="white", colour="white"),
    panel.background = element_rect(fill="white", colour="white"))

关键注意事项 #

• 确保所有调查问题的Response变量编码/顺序统一：比如第1个选项在所有数据中都编码为"1"（或对应的统一文本标签），因子水平的顺序也要保持一致，否则颜色会错位。
• viridis调色板本身具备黑白打印可读性，完全满足你老板的要求。

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