如何在R中绘制这样的图形？

Question

我在csv文件中使用以下格式的数据：

start;duration
1;4
7;3
15;2

这意味着我们有3个任务，第一个从1开始，需要4秒（因此它以5结束），第二个开始7并且需要3秒（soo结束于10），最后一个从15开始并且采取2秒

如何在图中显示这些信息，如下所示

Answer 1

 dat <- read.csv2(text="start;duration
 1;4
 7;3
 15;2
 ")
 plot(NA, xlim=c(0,20), ylim=c(0,9), ylab="",xlab="X", xaxt="n", yaxt="n")
 with(dat, segments(x0=start, x1=start+duration, y0=2,y1=2))
 with(dat, text( start+duration/2, 2.5, labels=duration))
 axis(1, at=seq(0,20,by=2), labels=seq(0,20,by=2))

你可以在剧情调用中为ylab和xlab添加更多描述性标签，但这是你用最小的例子得到的：