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:
R
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:
R
# 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:
R
# 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:
R
# 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:
Publicación traducida automáticamente
Artículo escrito por geetansh044 y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA