open_in_new
content_copy
qplot(x-coordinate, y-coordinate, data=data_frame, geom = c("point", "smooth")