plot(list(c(2,4), c(4,5), c(1,3), c(2,8)), add.labels=TRUE, join=TRUE)