R语言 划分ggplot2绘图的图例

在这篇文章中，我们将讨论如何在R编程语言中划分ggplot2绘图的图例。

为了划分ggplot2绘图的图例，用户需要在R控制台中安装并导入gridExtra和cowplot包。

• gridExrta包： 提供了一些用户级函数来处理 “网格 “图形，特别是在一个页面上安排多个基于网格的绘图，以及绘制表格。
• cowplot包： cowplot包是ggplot的一个简单附加包。它提供了各种有助于创建出版物质量的图形的功能，如一组主题、对齐图形和将其排列成复杂的复合图形的功能，以及使注释图形或将图形与图像混合的功能。

让我们先创建一个带有所有图例的图，然后再进行分割，这样区别就会更明显。

使用中的数据

例子

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

输出

为了划分图例，从数据框架中提取一个较小的数据样本，并应用适当参数的所需函数来生成所需的图。

例子

# 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  

输出：

例子

# 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  

输出

例子

# 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  

输出