ggplot_density.R

# Density plot in R using ggplot
library(ggplot2)
p <- ggplot(data = df, aes(x = response))
p <- p + geom_histogram(aes(y=..density..), binwidth = 0.3, fill="grey", colour="black")
p <- p + geom_line(stat="density", size = 1) 
p <- p + geom_rug()
p <- p + xlab("x")
p <- p + ylab("Probability density")
p <- p + theme_bw()
p <- p + theme(legend.title=element_blank())
p <- p + theme(legend.position='bottom')
p <- p + theme(text = element_text(size=10))
print(p)