R语言ggplot2中如何根据变量固定柱状图填充色映射并保持图例稳定

错位原因 #

问题根源是：当scale_fill_manual的values参数传入无命名的向量时，ggplot会按照当前子数据集中fill变量的因子水平顺序（即枚举值出现的先后顺序）依次匹配颜色。截取不同行数时，sentiment的枚举值排序发生变化，原本的颜色对应关系就会错位。

解决方案 #

给scale_fill_manual的values参数传入带名称的命名向量，强制建立情感值与颜色的一一对应，映射规则完全独立于当前子数据集的内容。

代码示例 #

手动定义映射（适合情感枚举值固定的场景） #

# 提前定义固定的情感-颜色映射，可根据实际情感枚举值补全所有条目
fixed_sentiment_colors <- c(
  "anger" = "orange",
  "anticipation" = "purple",
  "fear" = "brown",
  "sadness" = "grey",
  "joy" = "lightblue",
  "disgust" = "red",
  "positive" = "green",
  "surprise" = "blue",
  "negative" = "yellow",
  "trust" = "lightgreen"
)

# 无论截取前N行数据，填色规则都保持一致
ggplot(temp_table[1:10,], aes(x=word, y=word_count, fill=sentiment)) +
  geom_col() +
  scale_fill_manual(values = fixed_sentiment_colors) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

基于现有数据集自动生成映射（适合已有内置颜色列的场景） #

你的示例数据中已经内置了sentiment与对应颜色的cols列，可直接基于全量数据集提取映射，避免手动输入出错：

# 基于全量数据集提取唯一的情感-颜色配对，生成命名向量
fixed_sentiment_colors <- setNames(object = unique(temp_table$cols), nm = unique(temp_table$sentiment))

# 后续绘图直接复用该映射即可
ggplot(temp_table[1:10,], aes(x=word, y=word_count, fill=sentiment)) +
  geom_col() +
  scale_fill_manual(values = fixed_sentiment_colors) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

注意事项 #

• 命名向量的键名必须与sentiment字段的实际取值完全匹配，大小写、特殊字符不能有偏差
• 若后续新增情感类型，只需在映射向量中补充对应颜色即可，不需要调整绘图主逻辑

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