如何在ggplot中显示颜色标签 直方图自定义图例不显示问题求解

问题原因 #

你提到的无法显示的颜色标签专业名称为图例（legend），不显示的核心原因是ggplot的图例生成逻辑：只有将颜色、填充、线型等样式属性放到aes()内做分组映射时，才会自动生成图例，你之前直接在aes()外给colour、fill赋固定值，属于全局固定样式，不会触发生成图例。

具体修改点 #

1. 将两个直方图的分组标识放到aes()的colour、fill映射中，分别对应BS州和全瑞士两个分组
2. 调整scale_colour_manual、scale_fill_manual的配置，和映射的分组名称一一匹配
3. 提前统一处理时间字段，避免重复计算，同时移除第二层aes中冗余的veloaua$前缀

修正后代码 #

# 提前处理时间字段，避免重复计算
veloaua$time_posix <- as.POSIXct(veloaua$time, format="%H:%M")

ggplot() +
  # 全瑞士数据放在下层
  geom_histogram(data = veloaua, 
                 aes(x = time_posix, 
                     y = (..count..)/sum(..count..), 
                     colour = "全瑞士",
                     fill = "全瑞士"),
                 bins = 24,
                 alpha=0.3,
                 linetype="dashed") +
  # BS州数据放在上层
  geom_histogram(data = veloaua[veloaua$CantonCode == "BS",], 
                 aes(x = time_posix, 
                     y = (..count..)/sum(..count..), 
                     colour = "BS州",
                     fill = "BS州"),
                 bins = 24,
                 alpha=0.3) +
  # 手动匹配样式和分组
  scale_colour_manual(name = "分组",
                      values = c("BS州" = "black", "全瑞士" = "#303030")) +
  scale_fill_manual(name = "分组",
                    values = c("BS州" = "blue", "全瑞士" = "grey")) +
  # 可选：开启百分比显示
  scale_y_continuous(labels = scales::percent) +
  labs(x ="时间点", y ="占比")+
  ggtitle("该时段事故发生频次最高")

如果只需要显示颜色对应的图例，不需要填充的图例，把fill参数移到aes()外面写固定值即可。

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