Cacher is the code snippet organizer for pro developers

give.n <- function(x){
     return(c(y = mean(x, na.rm = TRUE), label = length(x)))
}

boxpl = function(){
     geom_boxplot() +
          stat_summary(fun.data = give.n, geom = "text")
}