R/table_freq.R

In AlexisMayer/toolbox:

#' Cette fonction permet de faire des tris à plats non-pondérés
#'
#' @param lst output tris croisés
#' @param x liste des variables 
#' @export
#' @examples 
#' lst = sapply(seq_along(dat), function(x) table.freq(dat, x), simplify = F)

table.freq = function(data, var) {
   # Select columns
   dat = data %>% 
      select_(.dots = c(var))
   # Levels 
   lev = levels(dat[[1]])
   # Table pondérées
   tw1 = round(table(dat[[1]]))
   # Prop table
   twp1 = prop.table(tw1)
   # Collect results
   res = tibble(
      "modality" = lev, 
      "weighted_frequency" = tw1,
      "weighted_percentage" = twp1
   )
   # Output
   return(res)
}