ggplot柱状图：自定义行政区颜色填充与并列显示问题求助

问题根源分析 #

你之前用for循环+if else手动分配颜色的方式不仅冗余，还容易导致颜色向量与行政区的对应关系出错，进而无法在ggplot中正确映射。另外，geom_bar()默认使用position="stack"导致堆叠显示，图例不统一则是因为颜色映射未正确绑定到Borough字段。

解决方案代码示例 #

1. 简化颜色分配（替代原for循环）

直接用RColorBrewer生成对应5个行政区的颜色向量，并绑定行政区名称，避免循环出错：

library(RColorBrewer)
library(ggplot2)

# 提取唯一行政区列表
boroughs <- unique(school.safety$Borough)
# 从ColorBrewer选色板生成对应颜色（比如"Set2"适合分类场景）
borough_colors <- setNames(brewer.pal(length(boroughs), "Set2"), boroughs)

2. 修正ggplot代码实现需求

ggplot(school.safety, aes(x = 扫描类型, y = 事件频率, fill = Borough)) +
  geom_bar(stat = "identity", position = position_dodge(width = 0.8), width = 0.7) +
  # 应用预定义的行政区颜色，同时统一图例名称
  scale_fill_manual(name = "纽约行政区", values = borough_colors) +
  labs(title = "各扫描类型下的行政区事件频率", x = "扫描类型", y = "事件频率") +
  theme_minimal()

关键修改说明 #

• 颜色映射修正：通过fill = Borough将填充色直接绑定到行政区字段，再用scale_fill_manual指定预定义的borough_colors，确保颜色与行政区一一对应，自动生成统一图例。
• 并列柱状图：设置position = position_dodge(width = 0.8)替代默认堆叠，width参数可调整柱子间距，让同一扫描类型下的5个行政区柱子并列显示。
• 替代for循环：用setNames()将颜色向量与行政区名称绑定，比手动循环更简洁且不易出错，确保颜色对应关系准确。

若坚持保留原for循环的颜色分配 #

如果一定要沿用你原来的循环逻辑，必须确保最终生成的颜色向量是以行政区名称为命名的向量，示例如下：

# 假设你原循环生成的颜色向量逻辑（示例）
borough_colors <- c()
for (i in 1:nrow(school.safety)) {
  if (school.safety$Borough[i] == "曼哈顿") {
    borough_colors[i] <- "#E41A1C"
  } else if (school.safety$Borough[i] == "布鲁克林") {
    borough_colors[i] <- "#377EB8"
  }
  # 补充其他行政区的if else逻辑...
}
# 转换为以行政区名为键的命名向量（关键步骤！）
borough_colors_unique <- setNames(unique(borough_colors), unique(school.safety$Borough))

之后在ggplot中同样用scale_fill_manual(values = borough_colors_unique)即可完成正确映射。

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