答案 0 :(得分:0)
这是你在找什么?
library(ggplot2)
library(reshape2)
df <- data.frame(point = c(10,20,30,40,50), start = c(20,30,40,50,60), end = c(30,40,50,60,70))
df.long <- melt(df, id = "point", measure = c("start","end"))
pl <- ggplot(data = df.long, aes(x = point, y = value, group = point)) + geom_line()
pl