Agregar etiquetas a un mapa en R

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"))