ggplot2中如何设置geom_line()颜色，匹配geom_point()配色并正常显示图例

原脚本存在三处影响效果的核心错误，直接导致颜色错位、图例异常的问题：

• 标签错配：将GPHY_G_TH_PPM的color标签设为了"U PPM"，GPHY_G_U_PPM的color标签设为了"TH PPM"，和实际变量的对应关系完全错位
• 映射链路断裂：geom_point层的颜色直接硬编码在aes参数外侧，没有接入全局color映射，既无法和对应线条颜色联动，也不会被纳入统一图例
• 硬编码不触发生成：如果直接在几何图层的aes外侧写死颜色值，这个设置不会被ggplot的映射系统识别，自然也不会生成对应的图例条目，这也是手动指定颜色却看不到图例的核心原因

实现逻辑 #

• 修正所有图层的图例标签和对应变量的匹配关系，杜绝标签错位
• 让geom_line和geom_point共用同一套color映射规则，保证线条和散点的颜色自动同步
• 通过scale_color_manual显式绑定自定义色值和图例标签，让你指定的色值严格生效，同时自动生成完整的图例

修正后的完整可运行脚本 #

library("ggplot2")
library("tibble")

# 准备背景色带数据
zone_data_U <- tibble(ymin = min(dataset$GPHY_G_U_PPM)*0.9, ymax = max(dataset$GPHY_G_U_PPM)*1.1, xmin = -Inf, xmax = Inf)
zone_data_TH <- tibble(ymin = min(dataset$GPHY_G_TH_PPM)*0.9, ymax = max(dataset$GPHY_G_TH_PPM)*1.1, xmin = -Inf, xmax = Inf)
zone_data_K <- tibble(ymin = min(dataset$GPHY_G_K_PCT)*0.9, ymax = max(dataset$GPHY_G_K_PCT)*1.1, xmin = -Inf, xmax = Inf)

# 提前定义固定配色映射，避免后续代码重复
color_mapping <- c(
  "K PCT" = "#FF0400",
  "TH PPM" = "#008000",
  "U PPM" = "#0300FF"
)

p = ggplot(dataset, aes(x = DATE_TIME)) +
  # 线条层：color映射统一使用正确的图例标签，不硬编码颜色
  geom_line(aes(y = GPHY_G_K_PCT, color = "K PCT"), size=1,  linetype=1, group = 1) +
  geom_line(aes(y = GPHY_G_TH_PPM, color = "TH PPM"), size=1, linetype=1, group = 2) +
  geom_line(aes(y = GPHY_G_U_PPM, color = "U PPM"), size=1, linetype=1, group = 3) +

  # 散点层：将color接入全局映射，和对应线条保持同一标签，自动匹配颜色
  geom_point(aes(y = GPHY_G_K_PCT, color = "K PCT"), size=2, group = 1) +
  geom_point(aes(y = GPHY_G_TH_PPM, color = "TH PPM"), size=2, group = 2) +
  geom_point(aes(y = GPHY_G_U_PPM, color = "U PPM"), size=2, group = 3) +

  # 显式绑定自定义色值与图例标签，严格使用你指定的配色
  scale_color_manual(values = color_mapping) +

  scale_y_continuous(trans='log2', labels = scales::comma) + 
  
  theme_bw() +
  theme(legend.position = "bottom", 
        panel.background = element_blank(), 
        panel.grid.minor = element_blank(), 
        panel.grid.major.y = element_blank(),
        axis.text.x = element_text(angle = 65, vjust = 1, hjust = 1),
        plot.title = element_text(size=12, face='bold', hjust = 0.5)) +
  labs(y = "K (%) U (ppm) TH (ppm) - Log Scale", 
       x = "", 
       color = "", 
       title = unique(dataset$TITULO)) +

  # 背景色带保持原有设置不变
  geom_rect(mapping = aes(ymin = ymin, ymax = ymax, xmin = xmin, xmax = xmax), 
            data = zone_data_K, alpha = 0.2, fill = "#FF0400",inherit.aes = FALSE)+
  geom_rect(mapping = aes(ymin = ymin, ymax = ymax, xmin = xmin, xmax = xmax), 
            data = zone_data_TH, alpha = 0.2, fill = "#008000",inherit.aes = FALSE) +
  geom_rect(mapping = aes(ymin = ymin, ymax = ymax, xmin = xmin, xmax = xmax), 
            data = zone_data_U, alpha = 0.2, fill = "#0300FF",inherit.aes = FALSE)   

p

实现效果 #

• 每条线条的颜色和对应位置的散点颜色完全一致，无错位
• 图例正常完整显示，每个条目同时包含对应线条、散点的标识，不会出现图例丢失、内容不全的问题
• 自定义的三个色值会严格生效，不会被ggplot默认配色覆盖

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