在r中交错输入的折线图

Question

我有20个科目，每个科目有2个持续时间，有不同的（交错的）开始时间点和结束时间点。我想在R中制作一个折线图，看起来像是在交错进入的生存分析中的升降台。具体而言，假设Y轴是ID，X轴是持续时间，理想情况下，该图将显示为相同ID堆叠的2个持续时间。 任何帮助将不胜感激。

Answer 1

您可以制作空白图并自己绘制线条。以下是我根据您的描述尝试示例的尝试。

set.seed(500)
df <- data.frame(
    id = 1:20,
    time_start1 = sample(1:25, 20),
    time_end1 = sample(51:75, 20),
    time_start2 = sample(26:50, 20),
    time_end2 = sample(76:100, 20)
)

plot(NULL, NULL, xlim=c(0,100), ylim=c(1,20), 
    xlab="Time", ylab="Identifier")

segments(
    x0=df$time_start1, 
    y0=df$id, 
    x1=df$time_end1, 
    y1=df$id
)
segments(
    x0=df$time_start2, 
    y0=df$id - 0.25, 
    x1=df$time_end2, 
    y1=df$id - 0.25,
    lty=2
)