如何用ggplot2绘制RN分阶段（start_time-middle、middle-end）异色时序线？

我来帮你搞定这个ggplot2的可视化需求！首先咱们得先把数据整理成ggplot偏好的长格式，然后就能轻松画出每个RN的两段不同颜色的线条啦～

步骤1：准备/整理数据 #

首先假设你的原始数据是宽格式（每个RN一行，包含start_time、middle、end_time三个时间列），咱们先模拟一份示例数据，再把它转换成适合绘图的结构：

library(tidyverse)

# 模拟你的原始数据结构（替换成你自己的真实数据即可）
set.seed(123)
raw_data <- tibble(
  RN = paste0("RN", 1:5),  # 示例RN编号
  start_time = sample(1:10, 5),  # 起始时间
  middle = sample(11:20, 5),     # 中间时间点
  end_time = sample(21:30, 5)    # 结束时间
)

# 将数据拆分为两个阶段的长格式数据
plot_data <- bind_rows(
  # 第一阶段：start_time → middle
  raw_data %>%
    select(RN, time1 = start_time, time2 = middle) %>%
    pivot_longer(cols = -RN, names_to = NULL, values_to = "time") %>%
    mutate(phase = "start → middle"),
  # 第二阶段：middle → end_time
  raw_data %>%
    select(RN, time1 = middle, time2 = end_time) %>%
    pivot_longer(cols = -RN, names_to = NULL, values_to = "time") %>%
    mutate(phase = "middle → end")
)

步骤2：绘制分段时间线 #

用ggplot2绘图时，核心是通过group = interaction(RN, phase)确保每个RN的每个阶段都能画出独立的线段，再用color = phase区分两段线条的颜色：

ggplot(plot_data, aes(x = time, y = RN)) +
  # 绘制分段线条，按RN+阶段分组，用phase区分颜色
  geom_line(aes(color = phase, group = interaction(RN, phase)), size = 1.2) +
  # 标记每个时间节点（可选，让可视化更清晰）
  geom_point(size = 2) +
  # 自定义颜色（可以换成你喜欢的颜色代码）
  scale_color_manual(values = c("start → middle" = "#2E86AB", "middle → end" = "#F24C00")) +
  # 设置图表标签
  labs(
    x = "Time",
    y = "RN",
    color = "Time Segment",
    title = "Time Segments for Each RN",
    subtitle = "Split into start→middle and middle→end phases"
  ) +
  # 美化主题
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),
    plot.subtitle = element_text(hjust = 0.5, size = 12),
    legend.position = "bottom"
  )

关键说明 #

• 如果你的原始数据已经是长格式（比如每行是一个时间点，带有RN和阶段标记），可以直接跳过数据整理步骤，直接用ggplot绘图。
• interaction(RN, phase)是为了让ggplot识别：每个RN的每个阶段是一条独立的线段，避免出现跨阶段的错误连线。
• 你可以根据需求调整线条粗细、点大小、颜色、主题样式等参数，让图表更贴合你的使用场景。

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