¿Cómo conectar puntos emparejados con líneas en Scatterplot en ggplot2 en R?

En este artículo, discutiremos cómo conectar puntos emparejados en un diagrama de dispersión en ggplot2 en el lenguaje de programación R.

Los diagramas de dispersión nos ayudan a visualizar el cambio en dos grupos de datos más categóricos. A veces, necesitamos trabajar con variables cuantitativas emparejadas y tratar de visualizar su relación. Por ejemplo, podemos tener dos variables cuantitativas correspondientes a dos categorías diferentes y nos gustaría conectar esos puntos de datos mediante líneas.

Sintaxis: ggplot(aes( x, y )) + geom_point( aes( color ) ) + geom_line( aes( grupo ) )

Dónde: 

• grupo: la variable que tiene pares a unir.
• color: la variable que categoriza los puntos

Ejemplo 1: Creación de un diagrama de dispersión con líneas que unen puntos emparejados

Aquí hay un gráfico de dispersión básico con líneas que unen puntos emparejados.

# create dataframe
sample_data <- data.frame( value1 = c(31,12,15,28,45,
                                      21,22,34,56,10),
                            
                          value2 = c(1,2,4,8,16,3,9,
                                     7,5,11),
                            
                          category1 = c('A','B','A','B','A',
                                        'B','A','B','A','B'),
                            
                          category2 = c(0,0,1,1,2,2,3,3,4,4))
# load tidyverse
library(tidyverse)
  
# create plot
ggplot(sample_data, aes(value1,value2)) +
  geom_point(aes(color=category1, size=3)) +
  geom_line(aes(group = category2))

Producción:

Personalización de color

Podemos cambiar el color y el ancho del segmento de unión usando la propiedad de color y tamaño de geom_line().                         

# create dataframe
sample_data < - data.frame(value1=c(31, 12, 15, 28, 45, 21,
                                    22, 34, 56, 10),
                           value2=c(1, 2, 4, 8, 16, 3, 9, 7, 5, 11),
  
                           category1=c('A', 'B', 'A', 'B', 'A',
                                       'B', 'A', 'B', 'A', 'B'),
  
                           category2=c(0, 0, 1, 1, 2, 2, 3, 3, 4, 4))
# load tidyverse
library(tidyverse)
  
# create plot
ggplot(sample_data, aes(value1, value2)) +
geom_line(aes(group=category2), color="grey",
          size=2, alpha=0.5) +
geom_point(aes(color=category1, size=7))

Producción:

Personalización de línea

Podemos convertir la línea de unión en una línea con surcos usando la propiedad de tipo de línea. Cada propiedad que funciona en un gráfico de líneas también funciona en esta línea.

# create dataframe
sample_data < - data.frame(value1=c(31, 12, 15, 28, 45, 21,
                                    22, 34, 56, 10),
  
                           value2=c(1, 2, 4, 8, 16, 3, 9, 7, 5, 11),
  
                           category1=c('A', 'B', 'A', 'B', 'A', 'B',
                                       'A', 'B', 'A', 'B'),
  
                           category2=c(0, 0, 1, 1, 2, 2, 3, 3, 4, 4))
# load tidyverse
library(tidyverse)
  
# create plot with ridged line
ggplot(sample_data, aes(value1, value2)) +
geom_line(aes(group=category2), linetype=2) +
geom_point(aes(color=category1, size=3))

Producción: