How to name all circle in bubble chart in R?

Last Updated : 04 Jan, 2022

In this article, we will see how to name all circles in a bubble chart in the R Programming language.

To add labels on each bubble in a bubble plot in the R Language, we use the geom_text() function of the ggplot2 package. The geom_text() function adds textual annotation overlap on top of the ggplot plot.

Syntax:

plot+ geom_text( aes( x, y, label, nudge_y, nudge_x )

Parameter:

x and y: determines the position of the label.

label: determines the vector that contains the labels for each bubble.

nudge_y: determines the distance shift in the vertical direction for the label.

nudge_x: determines the distance shift in the horizontal direction for the label.

In the below example, we will create a data frame and then plot a bubble plot with this data frame with no labels on each bubble.

Example: Basic plot

R

# 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)+ 

Output:

Now to add text to the plot we use, geom_text().

Example: Adding text to the plot

R

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

Output:

To adjust the position of the label of the bubble in the bubble plot, we use nudge_x and nudge_y.

Example: Adjusting labels

R

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