density-plot.r

# Density Curve Plot
# Original source: r graphics cookbook

# load the gcookbook package for the data
library(gcookbook)

# load the ggplot2 package
library(ggplot2)

# reset the graphing device
dev.off()

# create the ggplot2 data for the faithful$waiting variable
ggplot(faithful, aes(x=waiting)) + 
  # add a sensity line
  geom_line(stat="density") +
  # zoom out the plot a little bit
  expand_limits(y=0)

# create the ggplot2 data for three lines of different levels of smoothing
ggplot(faithful, aes(x=waiting)) +
  # "adjust" determines the level of smoothing, larger the number, the more smoothing
  geom_line(stat="density", adjust=.25, colour="red") +
  geom_line(stat="density") +
  geom_line(stat="density", adjust=2, colour="blue")