R/count2.R

In Meowllo/shopcade:

#' Enhanced Count Function
#' 
#' This function add an extra column of percentage
#' @param  ... parameters parsed to count()
#' @example 
#' count2(dataframe,column)

count2 = function(...){
  count = count(...)  
  count = arrange(count,desc(n))
  count$p = count$n/sum(count$n)
  return(count)
}