text(x=df$x[c(10, 20, 30)], y=df$y[c(10, 20, 30)], labels=c("Point 10", "Point 20", "Point 30"), pos=4, col="blue")