求助：ggplot条形图无法添加图例，如何手动添加区域设施图例

核心问题分析 #

• 你最初在aes()里设置了color=region，但又在geom_bar()中手动指定fill="#28d1eb"和colour="black"，这会覆盖美学映射，导致ggplot无法识别需要生成图例的变量。
• 混用ggplot和base R的barplot、legend函数是无效的，这两个是完全独立的绘图系统，不能交叉使用。

正确实现步骤 #

1. 先完成数据聚合 #

原始数据有17333条ID记录，需要先按区域汇总设施总数：

library(dplyr)
library(ggplot2)

# 假设数据框名为df，region是区域列，id是设施ID列
summary_df <- df %>%
  group_by(region) %>%
  summarise(facility_count = n()) # 统计每个区域的设施数量

2. 正确设置美学映射生成图例 #

不要在geom_bar()里手动指定固定的fill或color值，把区分变量放在aes()中：

ggplot(summary_df, aes(x = region, y = facility_count, fill = region)) +
  geom_bar(stat = "identity", color = "black") + # 统一边框为黑色，填充色按区域区分
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) + # 旋转x轴标签避免重叠
  labs(title = "各区域COVID-19设施总数", x = "区域", y = "设施总数")

如果需要边框也按区域区分，把color也放进aes()：

ggplot(summary_df, aes(x = region, y = facility_count, fill = region, color = region)) +
  geom_bar(stat = "identity") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(title = "各区域COVID-19设施总数", x = "区域", y = "设施总数")

3. 自定义图例样式（可选） #

如果需要调整图例位置、标题或布局：

ggplot(summary_df, aes(x = region, y = facility_count, fill = region)) +
  geom_bar(stat = "identity", color = "black") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        legend.position = "bottom") + # 图例移至底部
  labs(title = "各区域COVID-19设施总数", x = "区域", y = "设施总数",
       fill = "区域") + # 修改图例标题
  guides(fill = guide_legend(nrow = 2)) # 图例分行显示

常见误区规避 #

• 禁止混用ggplot和base R绘图函数，两者语法完全不兼容。
• 生成图例的前提是：将区分变量（如region）放在aes()中，不能用固定颜色值覆盖映射。
• 必须确保数据是聚合后的统计结果，否则geom_bar()默认会逐行计数，图形不符合预期。

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