limpieza standar de variables

starwars %>% 
     mutate(across(c("name", "sex"), 
                   ~stringi::stri_trans_general(
                     #pasar a mayusculas y sacar puntos
                     str_to_upper(gsub(',', '\\.', 
                                       # sacar espacios antes-desp
                                       str_trim(
                                         str_replace_all(., fixed(" "), "_")
                                       ))), "Latin-ASCII")))