Etiquetar los puntos un diagrama de dispersión en R

Problema

Tenemos un diagrama de dispersión y deseamos etiquetar puntos. Para ganar en claridad seleccionaremos solamente los 10 primeros puntos.

data <- LifeCycleSavings[1:10, ]
plot(sr ~ dpi, 
     data, 
     xlab = 'Real Per-Capita Disposable Income', 
     ylab = 'Aggregate Personal Savings', 
     main = 'Intercountry Life-Cycle Savings Data')

Solución

Utilizamos la función text para etiquetar los puntos del diagrama de dispersión.

data <- LifeCycleSavings[1:10, ]
plot(sr ~ dpi, 
     data, 
     xlab = 'Real Per-Capita Disposable Income', 
     ylab = 'Aggregate Personal Savings', 
     main = 'Intercountry Life-Cycle Savings Data')
labels <- rownames(data)
text(data$dpi, data$sr, labels, cex = 0.7, pos = 1)

Notas

Con el argumento cex cambiamos el tamaño de fuente. Por defecto es 1, 0.7 indica que lo reducimos un 70%. Con el argumento pos determinamos la posición de las etiquetas respecto al punto:

1 - Debajo
2 - Izquierda
3 - Derechas
4 - Encima

Referencias

• Set or Query Graphical Parameters
• Add Text to a Plot
• Identify Points in a Scatter Plot
• Regresión lineal simple para principiantes en R
• Regresión lineal simple en R con ggplot2
• Regresión lineal simple para principiantes en Excel