nombre_region <- function(x) {
regiones <- data.frame(
numero = 1:16,
region = c(
"Tarapacá", "Antofagasta", "Atacama", "Coquimbo", "Valparaíso",
"O'Higgins", "Maule", "Biobío", "La Araucanía", "Los Lagos",
"Aysén", "Magallanes", "Metropolitana", "Los Ríos",
"Arica y Parinacota", "Ñuble"
)
)
regiones$region[match(x, regiones$numero)]
}
nombre_region(13)
[1] "Metropolitana"