Plotting class densities example for machine learning classification - example #2

plot_class_density_2.R

library(ggplot2)
library(mlbench)

data(PimaIndiansDiabetes)

p <- ggplot( PimaIndiansDiabetes, 
                              aes( x=glucose, fill=diabetes))+
                              geom_histogram(alpha=0.4,position="identity")+
                              xlab("diabetes")+
                              scale_y_continuous("Number of Observations")
                              
p + guides(fill=guide_legend(title=NULL)) + 
                              scale_fill_discrete(labels=c("Diabetes Negative","Diabetes Positive")) +
                              theme(legend.position=c(1,1),legend.justification=c(1,1))