R/tabla_freq1.R

In diegohc1/umcR: Disminuir la tensión de los especialistas cuando elaboran un número indeterminado de gráficos

#' @name tabla_freq1
#'
#' @title Tabla de frecuencias
#'
#' @description Igual que table(), pero devuelve un dataframe y con los porcentajes redondeados.
#'
#' @param x Vector para aplicar tabla de frecuencias
#'
#' @return df
#' @export
#' @importFrom magrittr "%>%"
#'
#' @examples
#' tabla_freq1(iris$Species)

tabla_freq1 <- function(x){

  as.data.frame(round(prop.table(table(x))*100, 1))

}