如何在R中创建以线段展示各id时间区间的时间轴图

需求：创建一张y轴为唯一id值、x轴为时间轴的图表，每个id用线段连接对应的start和end日期。

示例数据集 #

id <- c("id1","id2","id3")
start <- c("2010-02-01","2010-04-05","2010-03-08")
end <- c("2013-11-10","2013-01-01","2011-05-07")
data <- data.frame(id, start, end)

第一步：转换日期格式 #

先把字符型日期转为R可识别的Date类型，确保时间轴正常渲染：

data$start <- as.Date(data$start)
data$end <- as.Date(data$end)

方法一：基础绘图（base R） #

# 初始化绘图区域，预留足够的轴范围
plot(NA, 
     xlim = range(c(data$start, data$end)), 
     ylim = c(0.5, length(data$id) + 0.5),
     xlab = "时间", 
     ylab = "ID",
     yaxt = "n")

# 添加y轴刻度，对应每个id
axis(2, at = 1:length(data$id), labels = data$id)

# 循环绘制每个id的时间线段
for(i in 1:nrow(data)){
  segments(x0 = data$start[i], 
           x1 = data$end[i], 
           y0 = i, 
           y1 = i,
           lwd = 2) # 调整线段粗细
}

# 添加标题（可选）
title(main = "ID时间跨度图")

方法二：ggplot2（美观灵活） #

用geom_segment可直接绘制线段，无需循环，适配更多自定义需求：

library(ggplot2)

ggplot(data, aes(y = id)) +
  # 绘制每个id的起止线段
  geom_segment(aes(x = start, xend = end, yend = id), 
               linewidth = 1.2) +
  # 设置标签与主题
  labs(x = "时间", y = "ID", title = "ID时间跨度图") +
  theme_minimal() +
  # 自定义x轴日期显示格式（可选）
  scale_x_date(date_labels = "%Y-%m", date_breaks = "1 year")

效果说明 #

两种方法均可实现目标效果：每个ID在y轴对应位置，用水平线段展示从start到end的时间跨度，x轴自动适配日期范围。

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