R/give.n.R

In syyang93/yangR: R package with Stephanie's functions

#' Allows boxplots to output the number of observations for each factor.  Taken from stackoverflow: https://stackoverflow.com/questions/3483203/create-a-boxplot-in-r-that-labels-a-box-with-the-sample-size-n
#' 
#' @param x 
#' 
#' @export
#' 
#' @return 
#' 
#' @examples
#' p <- ggplot(all2, aes(x=Group2, y=corr_mito_D)) + stat_summary(fun.data = give.n, geom = "text") + geom_boxplot()
give.n <- function(x){
  return(c(y = min(x)-(sd(x)/2), label = length(x)))
}