plot(cars)
lines(lowess(cars))
plot(sin, -pi, 2*pi)
## Discrete Distribution Plot:
plot(table(rpois(100,5)), type = "h", col = "red", lwd=10,
main="rpois(100,lambda=5)")
## Simple quantiles/ECDF, see ecdf() {library(stats)} for a better one:
plot(x <- sort(rnorm(47)), type = "s", main = "plot(x, type = "s")")
points(x, cex = .5, col = "dark red")
Run the code above in your browser using DataLab