R语言ggplot2多组柱状图如何正确添加匹配的图例

原代码出现图例与柱形颜色匹配错误，核心是映射逻辑不符合ggplot的规则：

• 原代码将控制柱形边框的color参数放在aes()内做映射，却把实际决定柱体颜色的fill参数写在aes()外设为固定值，ggplot不会把映射规则外的固定属性和图例做绑定，自然会出现匹配错位
• 连续叠加两个geom_bar分别画两组柱的写法本身不是多系列柱状图的标准实现方式，除了图例问题，还会出现同x轴位置的柱体互相完全遮挡的问题

ggplot绘制多系列图表的标准流程是先将宽格式数据转换为长格式，统一在全局映射中指定填充色对应的分类字段，再手动绑定分类与颜色值，生成的图例就会自动和图形完全匹配：

library(tidyr)
library(ggplot2)

# 构造示例数据
date <- 2001:2050
dat1 <- 1:50
dat2 <- 50:1
data <- tibble(date, dat1, dat2)

# 宽表转长表，生成统一的数据系列分类字段、指标值字段
data_long <- pivot_longer(
  data,
  cols = c(dat1, dat2),
  names_to = "data_series",
  values_to = "metric_value"
)

p2 <- ggplot(data_long, aes(x = date, y = metric_value, fill = data_series)) +
  # geom_col默认stat="identity"，直接适配y轴为原始数值的柱状图场景
  geom_col(position = "identity", alpha = 0.7) +
  # 手动绑定每个数据系列对应的填充色，图例自动匹配无错位
  scale_fill_manual(
    values = c(
      "dat1" = "orange",
      "dat2" = "blue"
    ),
    name = "数据系列" # 自定义图例标题
  ) +
  labs(
    title = "dat",
    y = "unit"
  )

p2

• 代码中alpha = 0.7是透明度设置，作用是避免同x位置两个柱体重叠时完全遮挡，不需要透明效果直接删除该参数即可
• 如果需要给柱体添加统一边框，直接在geom_col()内加固定参数比如color = "black"即可，不要把边框色传入aes()做映射，避免干扰图例逻辑

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