R/prep_freq.R

In UPAXResearch/graficator: Generador de gráficas

#' Data prep freq para grafica grid
#'
#' @param data
#' @param ipn
#' @param prob
#'
#' @return
#' @export
#'
#' @examples
prep_freq <- function(data, ipn, prob) {

  df <- prep(data, ipn, prob)

  df_freq <-reshape2::dcast(df, grupo2 ~ grupo1,
                            value.var = "freq") %>%
    bind_rows(summarise_all(., funs(if(is.numeric(.)) sum(.) else "Total"))) %>%
    mutate(cTotal = rowSums(.[-1]))

  return(df_freq)
}