R/freq.nom.R

In celiaromerogustos/Cuestionarios: Análisis de cuestionarios.

#' @import knitr
#' @import dplyr
#' @title Tabla de frecuencias para variables nominales
#' @description Función que genera una tabla de frecuencias absolutas y relativas junto con sus acumuladas
#' para la variable x.
#' @param Datos data.frame con los datos a analizar.
#' @param X vector de respuestas de la variable nominal a analizar (tamaño n)
#' @param Etiquetas vector de cadena de caracteres con las posibles respuestas.
#' @param Título cadena de caracteres que indica el nombre que se le quiere dar a la tabla
#' @return
#' @export

freq.nom= function(datos, X, etiquetas, título) {

  datos1 <- mutate(datos, v1 = factor(X, labels = etiquetas))
  Frec.abs=table(datos1$v1)
  Frec.rel=round(prop.table(Frec.abs),2)
  Frec.abs.acum = cumsum(Frec.abs)
  Frec.rel.acum = cumsum(Frec.rel)
  tabla=cbind(Frec.abs,Frec.rel ,Frec.abs.acum, Frec.rel.acum )
  kable( tabla, caption = título )  }