> x <- c(1,2,3,6,4,8,4,7) > y <- c(3,2,7,4,5,4,5,6) > h <- c(3,5,7) > plot(x,y) > abline(y=h) abline(h=h) will work.