Combinar varias leyendas de ggplot2 en R

En este artículo, veremos cómo combinar múltiples ggplot2 Legends en el lenguaje de programación R.

Instalación

Primero, cargue el paquete ggplot2 usando la función library() . Si aún no lo ha instalado, simplemente puede instalarlo escribiendo el siguiente comando en R Console.

install.packages("ggplot2")

Para crear un gráfico R, usamos la función ggplot() y para hacer un gráfico de dispersión agregamos la función geom_point() a la función ggplot(). Primero creemos una trama con múltiples leyendas en la misma trama sin combinar para que la diferencia sea evidente.

Ejemplo:

# Load Package
library("ggplot2")
  
# Create a DataFrame 
data <- data.frame(Xdata = rnorm(6),                        
                   Ydata = rnorm(6),
                   Group1 = c("ld-01", "ld-02", "ld-03",
                              "ld-04", "ld-05", "ld-06"),
                     
                   Group2 = c("ld-01", "ld-02", "ld-03",
                              "ld-04", "ld-05", "ld-06"))
  
# Create a Scatter Plot With Multiple Legends
ggplot(data, aes(Xdata, Ydata, color = Group1, shape = Group2)) +   
  geom_point(size = 7)

Producción:

Diagrama de dispersión con varias leyendas

Como puede ver en el gráfico anterior, las dos leyendas, Grupo 1, representa el color y Grupo 2, representa la forma de los puntos en el gráfico de dispersión, están delineados de manera diferente. Para combinarlos en una sola leyenda, debemos elegir solo una de ambas Leyendas. Aquí hemos elegido Group2, así que asignamos Group2 a los parámetros de color y forma de la función aes(). También puede elegir Grupo1.

Ejemplo:

# Load Package
library("ggplot2")
  
# Create a DataFrame 
data <- data.frame(Xdata = rnorm(6),                        
                   Ydata = rnorm(6),
                   Group1 = c("ld-01", "ld-02", "ld-03", 
                              "ld-04", "ld-05", "ld-06"),
                     
                   Group2 = c("ld-01", "ld-02", "ld-03",
                              "ld-04", "ld-05", "ld-06"))
  
# Create a Scatter Plot with Combined
# multiple legends
ggplot(data, aes(Xdata, Ydata, color = Group2, shape = Group2)) +   
  geom_point(size = 7)

Producción:

Diagrama de dispersión con varias leyendas combinadas