如何在R的ggplot中添加对应颜色与图例的水平线？

问题原因 #

你的代码中geom_hline直接调用原数据的period列，但未按obj_name匹配对应截距，也未指定独立的分组数据集，导致颜色无法与折线对应，图例也无法关联水平线的颜色映射。

解决步骤 #

1. 提取对象对应截距的独立数据集
   从原数据中提取每个obj_name对应的唯一period值，避免重复绘制水平线：

   period_df <- graph_data_long %>% 
     distinct(obj_name, period)
   

2. 重构geom_hline参数
   将上述数据集传入geom_hline，并在aes中同时绑定yintercept和colour到obj_name，让ggplot按对象匹配颜色与截距。

完整修改代码 #

# 提取每个对象的唯一period值
period_df <- graph_data_long %>% 
  distinct(obj_name, period)

graph_data_long %>%
  mutate(obj_name = reorder(obj_name, as.numeric(gsub("^.*?(\\d+)$", "\\1", obj_name)))) %>%
  ggplot(aes(x = as.numeric(power), y = value, group = obj_name, color = obj_name)) +
  geom_line() +
  geom_point(aes(shape = obj_name)) +
  # 使用独立数据集绑定截距与颜色
  geom_hline(data = period_df, aes(yintercept = period, colour = obj_name)) +
  scale_x_continuous(breaks = as.numeric(unique(graph_data_long$power))) +
  scale_y_continuous(trans = "log10") +
  theme_linedraw() +
  scale_shape_manual(values = 6:12) +
  labs(color = "Object", shape = "Object") +
  theme(axis.text.x = element_text(angle = 90, vjust = .5))

关键改动说明 #

• period_df数据集：确保每个对象仅对应一个截距值，消除重复绘制问题。
• geom_hline的data参数：指定使用独立数据集，让ggplot明确水平线与对象的对应关系。
• aes内的双绑定：通过yintercept = period和colour = obj_name，让水平线颜色与折线完全匹配，同时自动将水平线的颜色标识并入现有图例。

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