Cómo agregar etiquetas directamente en ggplot2 en R

Las etiquetas son entidades textuales que tienen información sobre el punto de datos al que están adjuntas, lo que ayuda a determinar el contexto de esos puntos de datos. En este artículo, discutiremos cómo agregar etiquetas directamente a ggplot2 en el lenguaje de programación R.

Para poner etiquetas directamente en el gráfico ggplot2, agregamos datos relacionados con la etiqueta en el marco de datos. Luego usamos las funciones geom_text() o geom_label() para crear una etiqueta al lado de cada punto de datos. Ambas funciones funcionan igual con la única diferencia en la apariencia. El geom_label() es un poco más personalizable que el geom_text().

Método 1: Usar geom_text()

Este método se usa para agregar etiquetas de texto a puntos de datos en gráficos ggplot2. Se posiciona de la misma manera que lo hace geom_point(). 

Sintaxis: ggp + geom_text( etiqueta, nudge_x , nudge_y, check_overlap )

Parámetros:

• etiqueta: etiquetas de texto que queremos mostrar en los puntos de datos
• nudge_x: desplaza el texto a lo largo del eje X
• nudge_y: desplaza el texto a lo largo del eje Y
• check_overlap:  evita la superposición de texto

Ejemplo: diagrama de dispersión con etiquetas usando ggplot2 y geom_text.

# import library ggplot2
library(ggplot2)
  
# Create dataset
x1 < - c(1, 1, 1, 2, 3, 4, 4, 4, 5, 5, 6, 2, 3)
y1 < - c(7, 23, 31, 14, 11, 3, 13, 27, 21, 10, 21, 14, 30)
label1 < - c('Apple', 'Guava', 'Papaya', 'Orange', 'PineApple',
             'Dragon Fruit', 'Kiwi', 'blackberry', 'blueberry',
             'grapes', 'strawberry', 'raspberry', 'Grapefruit')
  
sample_data < - data.frame(x1, y1, label1)
  
# add text with geom_text
ggplot(sample_data, aes(x=x1, y=y1)) +
geom_point() +
geom_text(
    label=label1,
    nudge_x=0.45, nudge_y=0.1,
    check_overlap=T
)

Producción:

Método 2: Usar geom_label()

Este método se usa para agregar etiquetas de texto a puntos de datos en gráficos ggplot2. Prácticamente funciona igual que geom_text, con la única diferencia de que envuelve la etiqueta dentro de un rectángulo.

Sintaxis: ggp + geom_label(etiqueta, empujar_x, empujar_y, verificar_superposición, etiqueta.relleno, etiqueta.tamaño, color, relleno)

Parámetros:

• etiqueta: etiquetas de texto que queremos mostrar en los puntos de datos
• nudge_x: desplaza el texto a lo largo del eje X
• nudge_y: desplaza el texto a lo largo del eje Y
• check_overlap:  evita la superposición de texto
• label.padding: relleno dentro de la superposición rectangular
• label.size: tamaño de superposición rectangular
• color: color del texto en la etiqueta
• relleno: color de fondo de la superposición rectangular

Ejemplo: diagrama de dispersión con etiquetas usando ggplot2 y geom_label().

# import library ggplot2
library(ggplot2)
  
# Create dataset
x1 < - c(1, 1, 1, 2, 3, 4, 4, 4, 5, 5, 6, 2, 3)
y1 < - c(7, 23, 31, 14, 11, 3, 13, 27, 21, 10, 21, 14, 30)
label1 < - c('Apple', 'Guava', 'Papaya', 'Orange', 'PineApple',
             'Dragon Fruit', 'Kiwi', 'blackberry', 'blueberry',
             'grapes', 'strawberry', 'raspberry', 'Grapefruit')
  
sample_data < - data.frame(x1, y1, label1)
  
# add text with geom_text
ggplot(sample_data, aes(x=x1, y=y1)) +
geom_point() +
geom_label(
    label=label1,
    nudge_x=0.45, nudge_y=0.1,
    check_overlap=T,
    label.padding=unit(0.55, "lines"),
    label.size=0.4,
    color="white",
    fill="#038225"
)

Producción: