如何在ggplot2图例中正确显示同色参数的颜色标注？

在使用ggplot绘图时，若多个参数（如Width和Weight）使用相同颜色，默认图例只会显示该颜色对应的一个参数，无法完整呈现所有同色参数的颜色关联需求。希望图例能同时展示：

• 蓝色点: Length
• 红色点: Width
• 红色点: Weight
• 绿色点: Deg

原始问题代码 #

library("tidyverse")
library("lubridate")
library("ggplot2")

Time <- c("09-01-2023 12:07:09","09-01-2023 12:17:09","09-01-2023 12:27:09","09-01-2023 12:37:09")
Width <- c(3,4,5,6)
Length <- c(30,40,50,60)
Weight <- c(300,400,500,600)
Angle <- c(3000,4000,5000,6000)

DF <- data.frame(Time,Width,Length,Weight,Angle)
DF<- DF %>% mutate(Time=dmy_hms(Time))
DF_Tidy<-gather(DF,key=Parameters,value=Values,-Time)   
Colors<-c("red","red","red","red","blue","blue","blue","blue",
          "red","red","red","red","green","green","green","green")
Units <-c("mm","mm","mm","mm","mm","mm","mm","mm","kg","kg","kg","kg","Deg","Deg","Deg","Deg")
DF_Tidy<-data.frame(DF_Tidy,Units,Colors)
Graph_DF<-DF_Tidy %>%
ggplot(aes(x=Time, y=Values,color=Colors)) +
geom_point() +
scale_color_identity(
guide = "legend",
labels = setNames(DF_Tidy$Parameters, DF_Tidy$Colors))+
theme(axis.text.x = element_text(size = 10),axis.text.y = element_text(size = 10),
legend.text=element_text(size=8),legend.key.size = unit(0.5,"line"),legend.position = "bottom")+ 
facet_wrap(facets = (~ Units),scales="free_y",nrow=4)
plot(Graph_DF)

简便解决方案 #

方法一：调整颜色映射逻辑（推荐）

将Parameters作为颜色映射的核心变量，手动指定每个参数对应的颜色值。这种方式让ggplot自动为每个参数生成独立图例项，即使颜色重复也能完整显示：

# 定义参数与颜色的映射关系
param_color_map <- c(
  "Width" = "red",
  "Length" = "blue",
  "Weight" = "red",
  "Angle" = "green"
)

Graph_DF <- DF_Tidy %>%
  ggplot(aes(x=Time, y=Values, color=Parameters)) +
  geom_point() +
  # 绑定参数与颜色的映射
  scale_color_manual(values = param_color_map) +
  theme(axis.text.x = element_text(size = 10),axis.text.y = element_text(size = 10),
        legend.text=element_text(size=8),legend.key.size = unit(0.5,"line"),legend.position = "bottom")+ 
  facet_wrap(facets = (~ Units),scales="free_y",nrow=4)

plot(Graph_DF)

方法二：手动构建图例项

通过guide_legend的override.aes参数手动定义每个图例项的颜色和标签，精准控制图例内容：

# 定义需要展示的图例内容
legend_details <- tibble(
  Parameters = c("Length", "Width", "Weight", "Angle"),
  Colors = c("blue", "red", "red", "green")
)

Graph_DF <- DF_Tidy %>%
  ggplot(aes(x=Time, y=Values, color=Colors)) +
  geom_point() +
  scale_color_identity(
    guide = guide_legend(
      # 手动设置每个图例项的颜色
      override.aes = list(color = legend_details$Colors),
      # 设置对应的参数标签
      labels = legend_details$Parameters
    )
  ) +
  theme(axis.text.x = element_text(size = 10),axis.text.y = element_text(size = 10),
        legend.text=element_text(size=8),legend.key.size = unit(0.5,"line"),legend.position = "bottom")+ 
  facet_wrap(facets = (~ Units),scales="free_y",nrow=4)

plot(Graph_DF)

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