Caja y Bigotes

#obj ggplot 

library(ggplot2)

plot <- ggplot(iris, aes(x=Sepal.Length, y=Sepal.Width)) 
plot <- plot + geom_boxplot(aes(group=Species, fill=Species, alpha=0.3))
plot <- plot + geom_point(aes(color=Species, alpha=0.3))
plot <- plot + facet_grid(.~Species)

# mostrar en pantalla
plot