Tabla_5_años_estudiantes_coles.R

### Tabla de sedes de 5 años con estudiantes de 5 años
#' @param data para ser usada 
#' @param ... variables que uno utiliza para agregar y hacer la tabla


table5 <- function(data,...){
  tabla <- data %>% 
    group_by(...) %>%
    summarise(n=n()) %>% 
    mutate(PORCENTAJE = round(n/sum(n)*100,1),
           ETIQUETA = paste0(round(n/sum(n)*100,1),"%"))
  tabla <- data.frame(tabla)
  return(tabla)
}