如何使用ggline自定义不同类别的geom points颜色

当前问题说明 #

使用ggline绘制密码破解时长与年龄的关联图时，默认生成的所有抖动散点为纯黑色，需要按照不同破解时长分类为散点匹配专属配色，对应规则为：

• instant类别：红色
• seconds类别：橙色
• minutes类别：黄色
• hours类别：灰色
• days类别：黑色
• months类别：浅绿色
• years类别：绿色

实现步骤 #

1. 数据预处理：将原本数值编码的时间字段转换为固定顺序的分类因子，避免后续映射、展示时出现顺序混乱
2. 在绘图层绑定颜色映射到对应的分类字段，通过手动指定色值的方式匹配要求的配色规则
3. 根据需求调整颜色作用范围：可选择将颜色应用到所有图层，或仅作用于抖动散点、保留原有均值线和误差棒的默认样式

完整可运行代码 #

方案1：颜色应用到全图（含均值线、误差棒）

# 编码转换：将数字编码的时间值转为带标签的分类因子
DF6$time_category <- factor(
  DF6$units_of_time,
  levels = c(1,2,3,4,5,6,7),
  labels = c("instant", "seconds", "minutes", "hours", "days", "months", "years")
)

# 绘图逻辑
ggline(DF6, 
       x = "time_category",
       y = "as.numeric.Final_DF.age.", 
       add = c("mean_se", "jitter"), 
       ylab = "年龄", 
       xlab = "密码破解耗时") +
  aes(color = time_category) +
  scale_color_manual(
    values = c(
      "instant" = "red",
      "seconds" = "orange",
      "minutes" = "yellow",
      "hours" = "gray",
      "days" = "black",
      "months" = "lightgreen",
      "years" = "green"
    )
  ) +
  ggtitle("密码破解时长与年龄的关联关系")

方案2：仅修改抖动散点颜色（保留均值线、误差棒为默认黑色）

如果不需要改动原有统计元素的颜色，可单独添加抖动散点图层绑定颜色映射：

# 沿用之前预处理好的time_category因子字段
ggline(DF6, 
       x = "time_category", 
       y = "as.numeric.Final_DF.age.", 
       add = c("mean_se"), # 关闭默认内置的jitter散点
       ylab = "年龄", 
       xlab = "密码破解耗时") +
  # 单独添加抖动散点，绑定颜色映射
  geom_jitter(aes(color = time_category), width = 0.2) +
  scale_color_manual(
    values = c(
      "instant" = "red",
      "seconds" = "orange",
      "minutes" = "yellow",
      "hours" = "gray",
      "days" = "black",
      "months" = "lightgreen",
      "years" = "green"
    )
  ) +
  ggtitle("密码破解时长与年龄的关联关系")

注意事项 #

• 预处理为分类因子后，原代码中单独设置order、scale_x_discrete(labels=...)的冗余代码可以直接删除，因子本身已经固定了展示顺序和对应标签
• 色值可根据需要替换为十六进制色号，实现更精准的配色匹配

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