library(ggplot2) library(MASS) theme_set(theme_bw()) g0 <- ggplot(OrchardSprays,aes(x=treatment,y=decrease))+ scale_y_log10() g_dyn <- g0 + stat_summary(fun.data=mean_cl_normal,geom="bar",colour="gray")+ stat_summary(fun.data=mean_cl_normal,geom="errorbar",width=0.5) g_errbar <- g0 + stat_summary(fun.data=mean_cl_normal,geom="pointrange") mm1 <- function(...) { mean_cl_normal(...,mult=1) } mm2 <- function(...) { mean_cl_normal(...,mult=2) } g_errbar2 <- g0 + stat_summary(fun.data=mm1,geom="linerange",lwd=1)+ stat_summary(fun.data=mm2,geom="linerange")+ stat_summary(fun.data=mm1,geom="point") g_point <- g0 +geom_point() g_boxplot <- g0 + geom_boxplot() g_violin <- ggplot(OrchardSprays, aes(x=log10(decrease)))+ geom_ribbon(aes(ymax = ..density.., ymin = -..density..), stat = "density")+ facet_grid(. ~ treatment, as.table = FALSE, scales = "free_y")+ opts(panel.margin=unit(0 , "lines"))+ coord_flip()+opts(axis.text.x=theme_blank()) library(gridExtra) png(file="barboxdotviolin_ggplot.png") print(grid.arrange(g_dyn,g_errbar,g_errbar2,g_point,g_boxplot,g_violin, nrow=2)) dev.off()