I have the following code: library(ggplot2) df <- data.frame(y=seq(1, 1e5, length.out=100), x=sample(100)) p <- ggplot(data = df, aes(x=x, y=y)) + geom_line() + geom_point() p Which pr...