d = data.frame(x0 = c(1,2,4,8), x1 = c(2,4,8,10), y = c(1,2,4,3))
ggplot(d) + geom_segment(aes(x = x0, xend = x1, y = y, yend = y))