Gráfico de burbujas con ggplot2 en R

 Un gráfico de burbujas es una visualización de datos que ayuda a mostrar varios círculos (burbujas) en un gráfico bidimensional como en un gráfico de dispersión. Un gráfico de burbujas se usa principalmente para representar y mostrar relaciones entre variables numéricas.

Con ggplot2, los diagramas de burbujas se pueden construir usando la función geom_point() . Se deben proporcionar al menos tres variables a aes() que son x, y y tamaño. ggplot2 mostrará automáticamente la leyenda.

Sintaxis:

ggplot(datos, aes(x, y, tamaño)) + geom_point()

Tamaño en la sintaxis anterior, tomará el nombre de uno de los atributos en función de cuyos valores diferirá el tamaño de las burbujas.

Ejemplo: crear un gráfico de burbujas

# importing the ggplot2 library
library(ggplot2)
  
# creating data set columns
x <- c(12,23,43,61,78,54,34,76,58,103,39,46,52,33,11,9,60)
y <- c(12,54,34,76,54,23,43,61,78,23,12,34,56,98,67,36,54)
r <- c(1,5,13,8,12,3,2,16,7,40,23,45,76,8,7,41,23)
  
# creating the dataframe from the above columns
data <- data.frame(x, y, r)
  
ggplot(data, aes(x = x, y = y,size = r))+ geom_point(alpha = 0.7)

Producción:

En el ejemplo anterior, todas las burbujas aparecen en el mismo color, lo que dificulta la interpretación del gráfico. Los colores se pueden agregar a la trama para que las burbujas difieran entre sí.

Ejemplo: agregar colores al gráfico de burbujas

# importing the ggplot2 library
library(ggplot2)
  
# creating data set columns
x <- c(12,23,43,61,78,54,34,76,58,103,39,46,52,33,11)
y <- c(12,54,34,76,54,23,43,61,78,23,12,34,56,98,67)
r <- c(1,5,13,8,12,3,2,16,7,40,23,45,76,8,7)
  
color <- c(rep("color1", 1), rep("color2", 2),
           rep("Color3", 3), rep("color4", 4),
           rep("color5", 5))
# creating the dataframe from the above columns
data <- data.frame(x, y, r, color)
  
ggplot(data, aes(x = x, y = y,size = r, color=color))+
geom_point(alpha = 0.7)

Producción:

El color se puede personalizar usando la paleta. Para cambiar los colores con la paleta RColorBrewer, agregue scale_color_brewer() al código de trazado de ggplot2

Sintaxis:

scale_color_brewer(palette=<Palette-Name>)

Ejemplo: personalizar los colores del gráfico de burbujas en R

# creating data set columns
x <- c(12,23,43,61,78,54,34,76,58,103,39,46,52,33,11)
y <- c(12,54,34,76,54,23,43,61,78,23,12,34,56,98,67)
r <- c(1,5,13,8,12,3,2,16,7,40,23,45,76,8,7)
  
colors <- c(1,2,3,1,2,3,1,1,2,3,1,2,2,3,3)
  
# creating the dataframe from the 
# above columns
data <- data.frame(x, y, r, colors)
  
# importing the ggplot2 library and
# RColorBrewer
library(RColorBrewer)
library(ggplot2)
  
# Draw plot
ggplot(data, aes(x = x, y = y,size = r, color=as.factor(colors))) + 
geom_point(alpha = 0.7)+ scale_color_brewer(palette="Spectral")

Producción:

Para cambiar el tamaño de las burbujas en el gráfico, es decir, dar el rango de tamaños desde la burbuja más pequeña hasta la burbuja más grande, usamos scale_size() . Esto permite establecer el tamaño de los círculos más pequeños y más grandes usando el argumento de rango.

Sintaxis:

scale_size(rango =< vector-rango>)

Ejemplo: cambiar el tamaño del gráfico de burbujas

# creating data set columns
x <- c(12,23,43,61,78,54,34,76,58,103,39,46,52,33,11)
y <- c(12,54,34,76,54,23,43,61,78,23,12,34,56,98,67)
r <- c(1,5,13,8,12,3,2,16,7,40,23,45,76,8,7)
  
color <- c(rep("color1", 1), rep("color2", 2),
           rep("Color3", 3), rep("color4", 4),
           rep("color5", 5))
sizeRange <- c(2,18)
  
# creating the dataframe from the above 
# columns
data <- data.frame(x, y, r, color)
  
# importing the ggplot2 library
library(ggplot2)
  
ggplot(data, aes(x = x, y = y,size = r, color=color)) 
                + geom_point(alpha = 0.7)
                + scale_size(range = sizeRange, name="index")

Producción:

Para modificar las etiquetas en el eje, agregue el código +labs(y= “nombre del eje y”, x = “nombre del eje x”) a su línea de código básico de ggplot.

Ejemplo: Alteración de etiquetas de gráfico de burbujas en R 

# creating data set columns
x <- c(12,23,43,61,78,54,34,76,58,103,39,46,52,33,11)
y <- c(12,54,34,76,54,23,43,61,78,23,12,34,56,98,67)
r <- c(1,5,13,8,12,3,2,16,7,40,23,45,76,8,7)
  
library("RColorBrewer")
color <- brewer.pal(n = 5, name = "RdBu")
  
# creating the dataframe from the above columns
data <- data.frame(x, y, r, color)
  
# importing the ggplot2 library
library(ggplot2)
ggplot(data, aes(x = x, y = y,size = r, color=color)) +
geom_point(alpha = 0.7) + 
labs(title= "Title of Graph", y="Y-Axis label", x = "X-Axis Label")

Producción:

Para cambiar la posición de la leyenda en ggplot2, agregue theme() al código básico de ggplot2.

Sintaxis:

theme(legend.position=<posición-deseada>)

Ejemplo: cambiar la posición de la leyenda del gráfico de burbujas

# creating data set columns
x <- c(12,23,43,61,78,54,34,76,58,103,39,46,52,33,11)
y <- c(12,54,34,76,54,23,43,61,78,23,12,34,56,98,67)
r <- c(1,5,13,8,12,3,2,16,7,40,23,45,76,8,7)
  
library("RColorBrewer")
color <- brewer.pal(n = 5, name = "RdBu")
  
# creating the dataframe from the above columns
data <- data.frame(x, y, r, color)
  
# importing the ggplot2 library
library(ggplot2)
  
ggplot(data, aes(x = x, y = y,size = r, color=color)) + 
geom_point(alpha = 0.7) + 
labs(title= "Title of Graph",y="Y-Axis label", x = "X-Axis Label") +
theme(legend.position="left")

Producción: