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 в вызове plot, но это то, что вы получите на этом минимальном примере: