Load the Old Faithful Geyser Data

data(geyser, package="MASS")

plot waiting time vs duration

library(ggplot2)
ggplot(geyser, aes(duration, waiting)) + 
    geom_point() +
  geom_density2d()