基于数值变量设置标签与颜色（scale_fill_manual）的变量引用问题

正常运行的代码 #

以下代码可正常执行并得到预期可视化结果：

lvl.limit.low <- 0.5
lvl.limit.high <- 8.5
DF<-data.frame(ID=c(seq(1,10, by = 1)),
               flow.1=c(9.1,.6,9,9.2,9.1,0.6,0,4.3,9.1,0.3)) %>% 
  mutate (
    flow.lvl = case_when(
      flow.1 > 7 ~ lvl.limit.high,
      flow.1 > 4 ~ lvl.limit.low,
      flow.1 < 0.99 ~ lvl.limit.low-1,
      .default = 999
      )
)

ggplot (DF) +
  geom_col (aes (x = ID, y = flow.lvl, fill = factor(flow.lvl) )) +
  scale_fill_manual(
    values = c("-0.5" =  "red3", "0.5" = "orange3", "8.5" = "darkgreen"),
    labels = c("-0.5" = "0", "8.5" = "4", "0.5" = "1")
  )

遇到的问题 #

如果尝试在scale_fill_manual的labels和values参数中直接使用变量（lvl.limit.low、lvl.limit.high），代码会报错。问题根源在于fill参数使用了factor类型，无法直接识别未转换的变量作为映射键。以下是报错的代码示例：

ggplot (DF) +
  geom_col (aes (x = ID, y = flow.lvl, fill = factor(flow.lvl) )) +
  scale_fill_manual(
    values = c("-0.5" =  "red3", "0.5" = "orange3", "8.5" = "darkgreen"),
    labels = c(lvl.limit.low-1 = "0", lvl.limit.high = "4", lvl.limit.low  = "1")
  )

当前可行但不符合需求的代码 #

以下代码能正常运行，但无法显式将颜色、标签与对应的数值变量关联，只能按因子顺序匹配，灵活性差：

ggplot (DF) +
  geom_col (aes (x = ID, y = flow.lvl, fill = factor(flow.lvl) )) +
  scale_fill_manual(
    values = c("red3", "orange3", "darkgreen"),
    labels = c("0", "4", "1")
  )

解决方案：提前构建命名向量实现显式映射 #

通过提前创建基于变量的命名向量，既能保留显式的映射关系，又能灵活使用变量，避免硬编码数值：

1. 预先定义颜色和标签的命名向量 #

# 用变量转字符串作为键，定义颜色映射
color_map <- c(
  as.character(lvl.limit.low - 1) = "red3",
  as.character(lvl.limit.low) = "orange3",
  as.character(lvl.limit.high) = "darkgreen"
)

# 用变量转字符串作为键，定义标签映射
label_map <- c(
  as.character(lvl.limit.low - 1) = "0",
  as.character(lvl.limit.high) = "4",
  as.character(lvl.limit.low) = "1"
)

2. 在ggplot中调用命名向量 #

ggplot(DF) +
  geom_col(aes(x = ID, y = flow.lvl, fill = factor(flow.lvl))) +
  scale_fill_manual(
    values = color_map,
    labels = label_map
  )

原理说明 #

factor(flow.lvl)生成的因子水平是字符串类型的数值，因此需要将变量转换为字符串作为命名向量的键，这样ggplot才能精准匹配因子水平与对应的颜色、标签，同时实现用变量控制映射关系的需求。

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