¿Cómo nombrar todos los círculos en el gráfico de burbujas en R?

En este artículo, veremos cómo nombrar todos los círculos en un gráfico de burbujas en el lenguaje de programación R.  

Para agregar etiquetas en cada burbuja en un gráfico de burbujas en el lenguaje R, usamos la función geom_text() del paquete ggplot2. La función geom_text() agrega superposición de anotaciones textuales en la parte superior del gráfico ggplot.

Sintaxis: 

plot+ geom_text( aes( x, y, etiqueta, empujar_y, empujar_x )

Parámetro:

• x e y: determina la posición de la etiqueta.
• etiqueta: determina el vector que contiene las etiquetas de cada burbuja.
• nudge_y: determina el cambio de distancia en la dirección vertical de la etiqueta.
• nudge_x: determina el cambio de distancia en la dirección horizontal de la etiqueta.

En el siguiente ejemplo, crearemos un marco de datos y luego trazaremos un gráfico de burbujas con este marco de datos sin etiquetas en cada burbuja.

Ejemplo: trama básica

# create sample data frame
x_value <- c(12,23,43,61,78,54,34,76,58)
y_value <- c(12,54,34,76,54,23,43,61,78)
radius <- c(1,5,13,8,12,3,2,16,7)
label <- c("Label1", "Label2", "Label3", 
           "label4", "label5", "label6",
           "label7", "label8", "label9")
sample_data <- data.frame( x_value, y_value, radius, label)
  
# load library ggplot2
library( ggplot2 )
  
# draw a basic bubble plot
ggplot( data = sample_data, aes( x=x_value, y=y_value, 
                                size=radius, color=label ) )+
        geom_point(alpha=0.4)+

Producción:

Ahora, para agregar texto a la trama que usamos, geom_text().

Ejemplo: Agregar texto a la trama

# create sample data frame
x_value <- c(12,23,43,61,78,54,34,76,58)
y_value <- c(12,54,34,76,54,23,43,61,78)
radius <- c(1,5,13,8,12,3,2,16,7)
label <- c("Label1", "Label2", "Label3", "label4", "label5",
           "label6", "label7", "label8", "label9")
sample_data <- data.frame( x_value, y_value, radius, label)
  
# load library ggplot2
library( ggplot2 )
  
# draw a basic bubble plot
ggplot( data = sample_data, aes( x=x_value, y=y_value, 
                                size=radius, color=label ) )+
        geom_point(alpha=0.4)+
        geom_text( aes(label=label))

Producción:

Para ajustar la posición de la etiqueta de la burbuja en el gráfico de burbujas, usamos nudge_x y nudge_y. 

Ejemplo: ajuste de etiquetas

# create sample data frame
x_value <- c(12,23,43,61,78,54,34,76,58)
y_value <- c(12,54,34,76,54,23,43,61,78)
radius <- c(1,5,13,8,12,3,2,16,7)
label <- c("Label1", "Label2", "Label3", 
           "label4", "label5", "label6", 
           "label7", "label8", "label9")
sample_data <- data.frame( x_value, y_value, radius, label)
  
# load library ggplot2
library( ggplot2 )
  
# draw a basic bubble plot
ggplot( data = sample_data, aes( x=x_value, y=y_value,
                                size=radius, color=label ) )+
        geom_point(alpha=0.4)+
        scale_size(range = c(1,13) )+
        geom_text( aes(label=label), nudge_y= -3, nudge_x= -2)+
        theme(legend.position = "none")

Producción: