library(ggplot2)
p <- ggplot(data = mpg, aes(x = cty, y = hwy)) print(p)
p <- qplot(x = cty, y = hwy, data = mpg, geom = "point") print(p)
p <- ggplot(economics, aes(date, unemploy)) p <- p + geom_blank() print(p)