如何在ggplot中按X轴指定值修改线条颜色？

要实现按atTime的指定值修改线条颜色，核心思路是把连续的线条拆分成多个时间区间段，每个区间对应不同的颜色。下面是针对你的数据的完整实现：

步骤1：预处理数据 #

首先得把原始的事件数据转换成线段数据，每个线段包含起始时间、结束时间、对应节点和车道信息，这样才能给不同区间设置不同颜色：

library(ggplot2)
library(dplyr)

# 你的原始数据
myDat <- data.frame(Event = rep(c("Arrival", "Departure"), 3), 
                    AtNode = c("StationA", "StationA", "Track", "Track", "StationB", "StationB"), 
                    Lane = c("Lane1", "Lane1", "Lane2", "Lane2", "Lane1", "Lane1"), 
                    atTime = c(10, 12, 18, 20, 34, 36), 
                    Type = c("Station", "Station", "Track", "Track", "Station", "Station"), 
                    Train = 1 )

# 转换为线段数据：每个线段对应相邻两个事件的时间区间
segments_dat <- myDat %>%
  arrange(Train, atTime) %>%
  group_by(Train) %>%
  mutate(
    next_atTime = lead(atTime),  # 获取下一个事件的时间
    next_AtNode = lead(AtNode),  # 获取下一个事件的节点
    # 这里指定时间分割点为20，你可以换成任何需要的atTime值
    color_group = ifelse(atTime <= 20, "before_20", "after_20")
  ) %>%
  filter(!is.na(next_atTime))  # 去掉最后一行没有后续事件的记录

步骤2：绘制分段颜色的线条 #

用geom_segment来绘制每个分段的线条，每个分段根据color_group设置颜色：

ggplot() +
  # 绘制分段线条
  geom_segment(data = segments_dat,
               aes(x = atTime, xend = next_atTime,
                   y = factor(AtNode, levels = unique(paste(myDat[order(myDat$atTime),"AtNode"]))),
                   yend = factor(next_AtNode, levels = unique(paste(myDat[order(myDat$atTime),"AtNode"]))),
                   color = color_group, group = Train)) +
  # 自定义颜色（可根据需求修改）
  scale_color_manual(values = c("before_20" = "blue", "after_20" = "red")) +
  # 可选：添加原始事件的标记点
  geom_point(data = myDat, aes(x = atTime, 
                               y = factor(AtNode, levels = unique(paste(myDat[order(myDat$atTime),"AtNode"]))),
                               color = Lane)) +
  labs(x = "Time", y = "Node", color = "Segment") +
  theme_minimal()

灵活调整分割规则 #

如果需要多个指定时间点划分颜色区间，可以修改color_group的逻辑，比如：

# 假设有多个分割点：15和25
segments_dat <- segments_dat %>%
  mutate(
    color_group = case_when(
      atTime <= 15 ~ "early",
      atTime >15 & atTime <=25 ~ "middle",
      atTime >25 ~ "late"
    )
  )

# 对应修改颜色映射
scale_color_manual(values = c("early" = "green", "middle" = "orange", "late" = "purple"))

关键说明 #

• 为什么不用geom_line？因为geom_line是按点连续连接，无法直接在中间切换颜色，而geom_segment可以逐个控制每个线段的颜色。
• 你可以完全自定义color_group的逻辑，比如基于特定atTime值、事件类型甚至车道信息来划分颜色。
• 示例中保留了原始Lane的颜色作为点的标记，你也可以根据需求调整线条颜色和车道的关联。

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