ggplot2自定义轴标签颜色：为指定时间刻度匹配专属色值

实现目标 #

绘制折线图时实现x轴指定时间刻度的标签分色，让标签颜色和对应关联的折线颜色保持视觉匹配，具体分色规则：

• 标签颜色为#FF9999的时间点：08:00、15:00、18:30
• 标签颜色为#0000FF的时间点：07:00、15:30、19:00、21:00

核心实现逻辑 #

这个配置不需要依赖任何第三方扩展包，只要保证刻度位置向量和标签颜色向量的索引一一对应，就能实现单个标签单独设色的效果，和ggplot2原生的主题系统完全兼容。

完整可复现代码 #

直接复用提供的数据集df，运行以下代码即可得到目标效果：

library(ggplot2)

# 配置x轴需要显示的刻度点，这个顺序是后续颜色匹配的严格基准
x_tick_pos <- c("07:00", "08:00", "15:00", "15:30", "18:30", "19:00", "21:00")
# 按照上面刻度的顺序，逐个匹配对应的标签颜色
x_tick_color <- c(
  "#0000FF", # 对应刻度07:00
  "#FF9999", # 对应刻度08:00
  "#FF9999", # 对应刻度15:00
  "#0000FF", # 对应刻度15:30
  "#FF9999", # 对应刻度18:30
  "#0000FF", # 对应刻度19:00
  "#0000FF"  # 对应刻度21:00
)

ggplot(df, aes(x = time, y = value, group = variable)) +
  # 折线部分如果需要和标签颜色完全匹配，可按分组设置对应line的色值，这里用基础灰色做示例
  geom_line(linewidth = 1, colour = "#555555") +
  scale_x_discrete(
    breaks = x_tick_pos,
    # *核心配置：给每个x轴标签匹配设置好的颜色
    axis.text.x = element_text(colour = x_tick_color, size = 12)
  ) +
  theme_bw()

实操注意事项 #

• 颜色向量的顺序必须和刻度位置向量严格对齐，一旦错位会直接导致标签和颜色匹配错误
• 如果需要补充普通黑色的刻度标签，只需要在x_tick_pos中增加对应的时间值，同时在x_tick_color的对应位置填上"#000000"即可
• 要实现折线和对应标签颜色完全联动的效果，只需要把同维度的折线颜色值替换为对应标签的色值，即可达到参考的视觉效果

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