¿Cómo hacer un gráfico con mancuernas en R con ggplot2?

El diagrama con mancuernas muestra el cambio entre dos puntos en nuestro conjunto de datos. Se llama así por su forma de mancuerna. Nos ayuda a comprender categóricamente la amplitud de los datos. Para hacer Dumbbell Plot en R usando ggplot2, usamos la función geom_dumbbell().

Sintaxis: geom_dumbbell(datos, aes(y, x, xend), tamaño, color, tamaño_x, tamaño_xend, color_x, color_xend)

Parámetros:

• datos: marco de datos para trazar datos
• tamaño: Tamaño de la barra en mancuerna
• color: Color de la barra en mancuerna
• size_x: tamaño del primer círculo en la trama
• colour_x: Color del primer círculo en la trama
• size_xend: tamaño del segundo círculo en la trama
• colour_xend: color del segundo círculo en la trama

Con ggplot2, los diagramas Dumbbell se pueden construir usando la función geom_dumbbell(). Se deben proporcionar al menos tres variables a aes() que son y, x y xend. 

Creación de un diagrama básico con mancuernas

Aquí hay un diagrama básico con mancuernas usando el paquete ggplot2.

# create data sets
ylabel <- c("first","second","third")
x1 <- c(1,2,3)
x2 <- c(4,3,5)
datamain <- data.frame(ylabel,x1,x2)
  
# import ggplot2, ggalt and tidyverse
library(ggplot2) 
library(ggalt)   
library(tidyverse)
  
# Draw dumbbell plot
ggplot() + geom_dumbbell(data = datamain, 
                         aes(y = ylabel,
                             x = x1, 
                             xend = x2),
                         size = 1.5)

Producción:

Personalización del tamaño en el gráfico de mancuernas:

Podemos personalizar el gráfico con mancuernas cambiando el radio del círculo en el gráfico con mancuernas o el ancho del segmento intermedio.

# create data sets
ylabel <- c("first","second","third")
x1 <- c(1,2,3)
x2 <- c(4,3,5)
datamain <- data.frame(ylabel,x1,x2)
  
# import ggplot2, ggalt and tidyverse
library(ggplot2) 
library(ggalt)   
library(tidyverse)
  
# Draw dumbbell plot
ggplot() + geom_dumbbell(data = datamain,
                         aes(y = ylabel,
                             x = x1,
                             xend = x2),
                         size = 1.5,
                         size_x = 5, 
                         size_xend = 9)

Producción:

Personalización del color en el gráfico con mancuernas:

Podemos personalizar el color en el gráfico con mancuernas usando las propiedades color_x y color_xend.

# create data sets
ylabel <- c("first","second","third",
            "fourth","fifth","Sixth")
x1 <- c(1,2,4,5,3,2)
x2 <- c(4,3,6,7,5,4)
  
datamain <- data.frame(ylabel,x1,x2)
  
# import ggplot2, ggalt and tidyverse
library(ggplot2)  
library(ggalt)    
library(tidyverse)
  
# Draw dumbbell plot
ggplot() +
 geom_dumbbell(data = datamain, aes(y = ylabel,
                                    x = x1, 
                                    xend = x2),
               size = 1.5, color = "blue", size_x = 7,
               size_xend = 7, colour_x = "green",
               colour_xend = "yellow")

Producción: