如何为R语言geom_bar图的最值添加手动图例？

你的问题根源在于：你是通过多次调用geom_bar分别指定不同填充色，这种硬编码的方式没有让ggplot识别出这些颜色对应的分组类别，自然无法生成图例；另外你误用了scale_colour_manual——这个函数控制的是图形的线条颜色，而你需要设置的是柱形的填充颜色，应该用scale_fill_manual。

正确的做法是先给数据添加一个分类标签，把每个数据点标记为「普通值」「最小值」「最大值」，再将这个标签映射到fill美学属性上，这样ggplot就能自动生成图例了。

步骤1：给数据添加分类标签 #

我们可以用dplyr的case_when函数（或者基础R的ifelse嵌套）给数据框新增一列，标记每个行的类别：

library(ggplot2)
library(dplyr) # 如果未安装请先运行 install.packages("dplyr")

# 为数据框新增Category列，标记每个行的类别
df <- df %>%
  mutate(Category = case_when(
    Count == min(Count, na.rm = TRUE) ~ "Min", # na.rm=TRUE处理可能的缺失值
    Count == max(Count, na.rm = TRUE) ~ "Max",
    TRUE ~ "Normal" # 其余数据归为普通值
  ))

步骤2：绘制带图例的柱状图 #

现在直接将fill映射到新增的Category变量，再用scale_fill_manual自定义颜色：

ggplot(df, aes(x = val, y = Count, fill = Category)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(
    name = "Bar Info", # 自定义图例标题
    values = c(
      "Normal" = "#ff1a1a",
      "Min" = "#ffb366",
      "Max" = "#66ff66"
    )
  )

为什么这个方法有效？ #

• 把填充色和数据中的分类变量绑定后，ggplot会自动识别不同分组，生成对应的图例项
• 使用scale_fill_manual可以精准控制每个分组对应的填充色，同时自定义图例标题
• 如果你的数据中有多个最小值/最大值，这个方法会自动把所有符合条件的柱形都高亮，无需额外处理

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