Continuando con el post anterior, en esta ocasión voy a agregar etiquetas al mapa que tengo de Asturias. Este post es una continuación del post que escribí hace unos días.

 

Cargo el mapa de Asturias de GADM con sus regiones:

load(url("http://gadm.org/data/rda/ESP_adm3.RData"))

 Para las etiquetas es necesario definir una lista que tenga el tipo de etiqueta, las coordenadas y el texto:

#Las etiquetas han de tener el mismo orden que los nombres en asturias$NAME_3
textos <- c("Área III", "Área VII", "Área I", "Área V", "Área II", "Área VIII", "Área VI", "Área IV")

#Leo las coordenadas de las regiones de Asturias
coordenadas <- coordinates(asturias)
#Creo la lista de las etiquetas
lista <- list("sp.text", coordenadas, textos)

En este caso coloco el nombre de las Áreas Sanitarias en su lugar.

Luego genero el gráfico, sin la leyenda (con la opción colorkey=FALSE):

spplot(asturias, "Shape_Area", sp.layout = lista, colorkey=FALSE)

 

Se podrían añadir otras etiquetas añadiendo una lista a la lista:

lista2 <- list(lista, list("sp.text", c(-6.043483,43.52508), "Asturias"))

No tiene permiso suficiente para añadir comentarios