如何在ggplot的scale_fill_manual中动态设置参数值与标签？

核心思路 #

先预设因子水平-颜色、因子水平-标签的固定映射关系，再根据传入列的实际存在的因子水平，动态提取对应的颜色与标签，同时修正原代码中数据引用的错误。

完整代码 #

library(tidyverse)

# 预设固定映射：确保每个因子水平与颜色、标签严格对应
color_map <- c(
  "Dark Green" = "darkgreen",
  "Green" = "green",
  "Orange" = "orange",
  "Yellow" = "yellow",
  "Grey" = "grey"
)

label_map <- c(
  "Dark Green" = "great",
  "Green" = "good",
  "Orange" = "ok",
  "Yellow" = "bad",
  "Grey" = "terrible"
)

make_graph <- function(df, col){
  # 筛选分组列与目标列（处理字符串格式的列名）
  selected_data <- df %>% select(group, all_of(col))
  
  # 生成比例表并过滤无效项
  prop_table <- prop.table(table(selected_data$group, selected_data[[col]]))
  plot_df <- as.data.frame(prop_table) %>% filter(Freq != 0)
  
  # 获取当前列实际存在的因子水平
  active_levels <- unique(plot_df$Var2)
  
  # 动态提取对应颜色与标签
  target_colors <- color_map[active_levels]
  target_labels <- label_map[active_levels]
  
  ggplot(plot_df, aes(x = Var1, y = Freq, fill = Var2)) +
    geom_bar(stat = "identity", position = "dodge") +
    theme_minimal() +
    scale_fill_manual(
      values = target_colors,
      labels = target_labels,
      name = "评价" # 可自定义图例标题
    ) +
    labs(x = "分组", y = "比例") # 可自定义坐标轴标题
}

关键细节说明 #

• 列名兼容：用all_of(col)处理字符串形式的列名，避免select函数的语法报错
• 数据修正：原代码错误使用原始数据绘图，实际应使用处理后的比例数据框plot_df（包含计算好的Freq列）
• 映射准确性：通过预设的固定映射表，彻底解决之前图例颜色与标签不匹配的问题
• 动态适配：自动识别传入列的有效因子水平，只加载对应颜色与标签，适配不同列的水平差异

测试示例 #

假设数据框结构如下：

df <- tibble(
  group = rep(c("A", "B"), each = 5),
  col_2 = c("Dark Green", "Green", "Orange", "Dark Green", "Green") %>% 
    factor(levels = c("Dark Green", "Green", "Orange", "Yellow", "Grey"))
)

# 调用函数
make_graph(df, "col_2")

此时图表会显示3种颜色（深绿、绿、橙），对应图例标签为great、good、ok，完全匹配需求。

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