Divide Legend of ggplot2 Plot in R (Example) | Split in Multiple Parts | gridExtra & cowplot Package скачать в хорошем качестве

Divide Legend of ggplot2 Plot in R (Example) | Split in Multiple Parts | gridExtra & cowplot Package

How to split a ggplot2 legend into several parts in the R programming language. More details: https://statisticsglobe.com/divide-le... R code of this video: data ＜- data.frame(x = 20:15, # Create example data frame y = 3:8, group = LETTERS[1:6]) install.packages("ggplot2") # Install ggplot2 package library("ggplot2") # Load ggplot2 package ggp ＜- ggplot(data, aes(x, # Creating ggplot2 plot y, color = group)) + geom_point(size = 5) ggp # Drawing ggplot2 plot install.packages("gridExtra") # Install & load gridExtra package library("gridExtra") install.packages("cowplot") # Install & load cowplot library("cowplot") data_split_1 ＜- data[data$group %in% c("A", "B"), ] # Create first data frame subset data_split_1 # Print data frame subset ggp_split_1 ＜- ggplot(data_split_1, # Create ggplot2 plot of first subset aes(x, y, color = group)) + geom_point(size = 5) + scale_color_manual(values = 1:2) + labs(color = "Legend No. 1") ggp_split_1 # Draw ggplot2 plot of first subset ggp_legend_split_1 ＜- get_legend(ggp_split_1) # Extract legend of first subset data_split_2 ＜- data[! data$group %in% c("A", "B"), ] # Create second data frame subset data_split_2 # Print data frame subset ggp_split_2 ＜- ggplot(data_split_2, # Create ggplot2 plot of second subset aes(x, y, color = group)) + geom_point(size = 5) + scale_color_manual(values = 3:6) + labs(color = "Legend No. 2") ggp_split_2 # Draw ggplot2 plot of second subset ggp_legend_split_2 ＜- get_legend(ggp_split_2) # Extract legend of second subset ggp_no_legend ＜- ggplot(data, # Create ggplot2 plot without legend aes(x, y, color = group)) + geom_point(size = 5) + scale_color_manual(values = 1:6) + theme(legend.position = "none") ggp_no_legend # Draw ggplot2 plot without legend grid.arrange(ggp_legend_split_1, # Draw ggplot2 plot with two legends ggp_no_legend, ggp_legend_split_2, ncol = 3) Follow me on Social Media: Facebook – Statistics Globe Page:   / statisticsglobecom   Facebook – Group for Discussions & Questions:   / statisticsglobe   LinkedIn – Statistics Globe Page:   / statisticsglobe   LinkedIn – Group for Discussions & Questions:   / 12555223   Twitter:   / joachimschork   Music by bensound.com