如何手动设置ggplot多曲线图表中线条与点的颜色？

我有如下数据框：

alpha variable     value
1    0.0       Q0 0.5942630
2    0.1       Q0 0.5636386
3    0.2       Q0 0.5762922
4    0.3       Q0 0.5115648
5    0.4       Q0 0.4780542
6    0.5       Q0 0.4597136
7    0.6       Q0 0.4746733
8    0.7       Q0 0.4564167
9    0.8       Q0 0.4074557
10   0.9       Q0 0.1675198
11   1.0       Q0 0.1664421
12   0.0       Q1 0.1821955
13   0.1       Q1 0.4772672
14   0.2       Q1 0.4467129
15   0.3       Q1 0.6346773
16   0.4       Q1 0.7046066
17   0.5       Q1 0.7135479
18   0.6       Q1 0.7054971
19   0.7       Q1 0.7184997
20   0.8       Q1 0.7533871
21   0.9       Q1 0.7873717
22   1.0       Q1 0.7979149

并使用以下ggplot代码绘制图表：

ggQs <-    ggplot() + geom_line( data=alpha_Qs, aes(x= alpha, y= value, group=  variable, col = variable), size = 1.5) +
           geom_point(data=alpha_Qs, aes(x= alpha, y= value, group=  variable, col = variable), size = 4) +
           theme_bw() + xlab(expression(alpha)) + ylab("Q") + 
           theme( axis.line = element_blank(), axis.text.x  = element_text(size = 25), 
                  axis.text.y  = element_text(size = 25),  axis.title = element_text(size = 25),
                  legend.title=element_blank(), legend.text=element_text(size=25)     )

希望手动控制图表中线条与点的颜色，该如何操作？

方法一：统一指定分组颜色 #

由于你的线条和点都通过variable映射颜色，直接使用*scale_color_manual()*函数即可为每个分组指定自定义颜色，示例代码如下：

ggQs <- ggplot() + 
  geom_line(data=alpha_Qs, aes(x=alpha, y=value, group=variable, col=variable), size=1.5) +
  geom_point(data=alpha_Qs, aes(x=alpha, y=value, group=variable, col=variable), size=4) +
  theme_bw() + 
  xlab(expression(alpha)) + 
  ylab("Q") + 
  theme(axis.line = element_blank(), 
        axis.text.x = element_text(size=25), 
        axis.text.y = element_text(size=25), 
        axis.title = element_text(size=25),
        legend.title=element_blank(), 
        legend.text=element_text(size=25)) +
  # 为Q0、Q1分别指定颜色，名称需与数据中variable的取值完全匹配
  scale_color_manual(values = c("Q0" = "#1f77b4", "Q1" = "#ff7f0e"))

• 你可以替换values中的颜色值，支持十六进制颜色码（如#1f77b4）、颜色名称（如"blue"）、RGB值（如rgb(0, 100, 200, 0.8)）。
• 颜色向量的名称必须和variable列的取值一致，才能正确对应分组颜色。

方法二：分开控制线条与点的颜色 #

如果需要让线条和点的颜色不一致（比如Q0线条为黑色、点为蓝色；Q1线条为灰色、点为红色），可以拆分图层并单独指定颜色，同时手动配置图例：

ggQs <- ggplot() + 
  # 单独绘制Q0和Q1的线条并指定颜色
  geom_line(data=subset(alpha_Qs, variable=="Q0"), aes(x=alpha, y=value), size=1.5, color="#000000") +
  geom_line(data=subset(alpha_Qs, variable=="Q1"), aes(x=alpha, y=value), size=1.5, color="#888888") +
  # 单独绘制Q0和Q1的点并指定颜色
  geom_point(data=subset(alpha_Qs, variable=="Q0"), aes(x=alpha, y=value), size=4, color="#1f77b4") +
  geom_point(data=subset(alpha_Qs, variable=="Q1"), aes(x=alpha, y=value), size=4, color="#ff4444") +
  theme_bw() + 
  xlab(expression(alpha)) + 
  ylab("Q") + 
  theme(axis.line = element_blank(), 
        axis.text.x = element_text(size=25), 
        axis.text.y = element_text(size=25), 
        axis.title = element_text(size=25)) +
  # 手动添加图例，匹配线条和点的样式
  scale_color_manual(name="", values=c("Q0"="#1f77b4", "Q1"="#ff4444"), 
                     guide=guide_legend(override.aes = list(
                       linewidth=c(1.5,1.5), color=c("#000000","#888888"), 
                       shape=c(16,16), size=c(4,4)
                     )))

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