Agregar función para ordenar de norte a sur las regiones en caso de variable numérica.
Podría quedar como opción si RM va o no al final.
region_orden <- function(x){
# Ordena número de regiones en un factor de norte a sur.
# RM al final.
factor(x,
levels = c(15,1:7,16,8,9,14,10:13),
ordered = TRUE)
}