R ggplot：geom_line匹配散点颜色并保留图例的技术问询

我明白你的需求：要在男性、女性各自的散点图上叠加两组回归线，让线条颜色和散点的steelblue2（男）、pink3（女）精准匹配，同时还要保留图例。你之前遇到的问题很典型——把color移出aes()后颜色对了，但图例直接消失；放在aes()里又没法直接指定自定义颜色，导致颜色不匹配。

核心思路 #

问题的根源在于你当前的宽格式数据不太适合ggplot的映射逻辑，而且直接在aes()里写颜色字符串会被当成分类变量，而不是实际的颜色值。我们可以通过两个步骤解决：

• 把预测值数据转换成长格式（tidy data），让性别成为一个单独的变量，方便ggplot做颜色映射
• 用scale_color_manual()手动绑定性别和对应的颜色，既保证颜色匹配，又能保留完整图例

修改后的完整代码 #

首先，我们需要先整理预测数据（如果还没装tidyr包，先运行install.packages("tidyr")）：

library(tidyr)

# 把宽格式的预测数据转成长格式
pred_data <- mean_behav_by_numweeks %>%
  select(numweeks_round, lm_results_predict_male, lm_results_predict_female) %>%
  pivot_longer(
    cols = starts_with("lm_results_predict_"),
    names_to = "gender",
    values_to = "pred_score",
    names_prefix = "lm_results_predict_"
  ) %>%
  mutate(gender = ifelse(gender == "male", "Male", "Female"))

男性患者散点图

gg_plot1 <- ggplot() +
  # 绘制男性散点：直接指定颜色，不参与映射（避免干扰图例）
  geom_point(data = mean_behav_by_numweeks,
             aes(x = numweeks_round, y = Mean_Behavior_Score_Male, size = nrow_male),
             colour = 'steelblue2') +
  # 叠加两组回归线：用长格式数据，把gender映射到color
  geom_line(data = pred_data,
            aes(x = numweeks_round, y = pred_score, color = gender),
            size = 1) +
  # 手动指定性别对应的颜色，完美匹配散点
  scale_color_manual(name = "GenderCode",
                     values = c("Male" = "steelblue2", "Female" = "pink3")) +
  # 格式设置和你原来的保持一致
  ggtitle(paste("Scatter plot of mean behavior assessment score by member by # weeks 
 since 1st assessment for", as.character(var), "among Male Medi-Cal plan members")) +
  theme(plot.title = element_text(size=10.9, hjust = 0.5),
        axis.text = element_text(size=8),
        legend.position="bottom") +
  scale_size_continuous(range = c(1, 7)) +
  xlab("Number of weeks since 1st assessment") +
  ylab("Mean behavior assessment score") +
  labs(size="# members") +
  guides(color = guide_legend(order=1, direction="vertical"))

gg_plot1

女性患者散点图

gg_plot2 <- ggplot() +
  # 绘制女性散点：直接指定颜色
  geom_point(data = mean_behav_by_numweeks,
             aes(x = numweeks_round, y = Mean_Behavior_Score_Female, size = nrow_female),
             colour = 'pink3') +
  # 同样叠加两组回归线
  geom_line(data = pred_data,
            aes(x = numweeks_round, y = pred_score, color = gender),
            size = 1) +
  scale_color_manual(name = "GenderCode",
                     values = c("Male" = "steelblue2", "Female" = "pink3")) +
  ggtitle(paste("Scatter plot of mean behavior assessment score by member by # weeks 
 since 1st assessment for", as.character(var), "among Female Medi-Cal plan members")) +
  theme(plot.title = element_text(size=10.9, hjust = 0.5),
        axis.text = element_text(size=8),
        legend.position="bottom") +
  scale_size_continuous(range = c(1, 7)) +
  xlab("Number of weeks since 1st assessment") +
  ylab("Mean behavior assessment score") +
  labs(size="# members") +
  guides(color = guide_legend(order=1, direction="vertical"))

gg_plot2

为什么这样有效？ #

• 长格式数据让我们只用一次geom_line就能画出两组回归线，代码更简洁，也更容易维护
• scale_color_manual直接把性别变量和你想要的颜色绑定，图例显示的是性别名称，颜色和散点完全一致
• 散点部分直接指定colour（不在aes()映射里），不会干扰图例生成——图例是由回归线的color映射来的，这样既保证了散点颜色正确，又保留了回归线的图例

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