Dividir Leyenda de ggplot2 Parcela en R

En este artículo, discutiremos cómo dividir la leyenda de la trama ggplot2 en el lenguaje de programación R.

Para dividir la leyenda del diagrama ggplot2, el usuario debe instalar e importar los paquetes gridExtra y cowplot en la consola R.

• Paquete gridExrta: proporciona una serie de funciones a nivel de usuario para trabajar con gráficos de «cuadrícula», en particular para organizar múltiples gráficos basados ​​en cuadrículas en una página y dibujar tablas.
•  Paquete cowplot: El paquete cowplot es un complemento simple para ggplot. Proporciona varias funciones que ayudan a crear figuras con calidad de publicación, como un conjunto de temas, funciones para alinear tramas y organizarlas en figuras compuestas complejas, y funciones que facilitan anotar tramas o mezclar tramas con imágenes.

Primero creemos una trama con todas las leyendas antes de dividirlas, para que la diferencia sea más evidente.

Datos en uso:

Ejemplo:

library(ggplot2)
library(gridExtra)
library(cowplot)
  
gfg_data <- data.frame(x = 1:10, y = 10:1, group = LETTERS[1:10])
  
ggp_plot<- ggplot(gfg_data, aes(x,y,color = group)) + 
geom_bar(stat="identity") +scale_color_manual(values = 1:10) +
labs(color = "Legend-1")
  
ggp_plot

Producción:

Para dividir las leyendas, extraiga una muestra más pequeña de los datos del marco de datos y aplique las funciones necesarias con los parámetros adecuados para generar el gráfico deseado.

Ejemplo:

# legends for two
library(ggplot2)
library(gridExtra)
library(cowplot)
  
gfg_data <- data.frame(x = 1:10, y = 10:1, group = LETTERS[1:10])
  
gfg_split_1 <- gfg_data[gfg_data$group %in% c("A", "B"), ]   
gfg_split_1
  
ggp_split_plot_1 <- ggplot(gfg_split_1, aes(x,y,color = group)) + 
geom_bar(stat="identity")+scale_color_manual(values = 1:2) +
labs(color = "Legend-1")
ggp_split_plot_1  

Producción:
 

Ejemplo:

# legends for three
library(ggplot2)
library(gridExtra)
library(cowplot)
  
gfg_data <- data.frame(x = 1:10, y = 10:1, group = LETTERS[1:10])
  
gfg_split_2 <- gfg_data[gfg_data$group %in% c("C", "D","E"), ] 
gfg_split_2
  
ggp_split_plot_2 <- ggplot(gfg_split_2, aes(x,y,color = group)) + 
geom_bar(stat="identity")+
scale_color_manual(values = 1:3) +labs(color = "Legend-1")
  
ggp_split_plot_2  

Producción:

Ejemplo:

# legends for rest of the data
library(ggplot2)
library(gridExtra)
library(cowplot)
  
gfg_data <- data.frame(x = 1:10, y = 10:1, group = LETTERS[1:10])
  
gfg_split_3 <- gfg_data[! gfg_data$group %in% c("A","B","C", "D","E"), ]
gfg_split_3
  
ggp_split_plot_3 <- ggplot(gfg_split_3, aes(x,y,color = group)) + 
geom_bar(stat="identity")+scale_color_manual(values = 1:5) + 
labs(color = "Legend-1")
  
ggp_split_plot_3  

Producción: