Dibuja varias parcelas ggplot2 una al lado de la otra

En el lenguaje de programación R, podemos analizar datos mediante la creación de diferentes gráficos o trazados a partir de ellos. A veces, para el análisis, necesitamos ver dos o más parcelas al mismo tiempo, una al lado de la otra. En ese caso, usamos el paquete gridExtra del lenguaje R que divide el marco en cuadrículas, y puede agregar varias parcelas en esas cuadrículas.

gridExtra contiene una función llamada Organize() que se utiliza para organizar las parcelas como se desee.

Sintaxis:

grid.arrange(plot1, plot2, …, plotn, ncol, nrow)

Parámetro:

• trama: alguna trama
• ncol: número de columnas
• nrow: número de filas

Para comenzar con esto, primero cree datos para todas las parcelas. Luego, importe los paquetes requeridos que ayudarán con el requisito. Uno de los paquetes más importantes que debe instalarse e importarse a la ventana es gridExtra porque sin él, los gráficos no se organizarán en el marco deseado. 

Ahora cree y almacene gráficos de todos los datos creados. Una vez que las parcelas estén listas, organícelas usando la función de arreglar() con los parámetros requeridos.

Ejemplo 1:

# Create sample data
set.seed(5642)                             
sample_data1<- round(rnorm(100, 10, 5))         
sample_data2 <- data.frame(x = rnorm(1000),        
                    y = rnorm(1000))
  
# Load ggplot2 and gridExtra
library("ggplot2") 
library("gridExtra")
  
# Create both plot and store in variable
plot1<-ggplot(data.frame(sample_data1), aes(sample_data1)) + 
geom_histogram(bins = 10, fill="#04c24a", color="gray")
  
plot2<- ggplot(sample_data2, aes(x = x, y = y)) + geom_point(color="#04c24a")
  
# Divide frame in grid using grid.arrange function 
# and put above created plot int it
grid.arrange(plot1, plot2, ncol = 2)

Producción:

Ejemplo 2:

# Create sample data
set.seed(5642)                             
sample_data1 <- data.frame(name=c("Geek1","Geek2","Geek3",
                                  "Geek4","Geeek5") ,
                           value=c(31,12,15,28,45)) 
  
sample_data2 <- data.frame(x = rnorm(400))
sample_data3 <- data.frame(name=c("C++","C#","Java","R","Pyhton") ,
                           value=c(301,112,115,228,145))
  
# Load ggplot2 and gridExtra
library("ggplot2") 
library("gridExtra")
  
# Create both plot and store in variable
plot1<-ggplot(sample_data1, aes(x=name, y=value))+
geom_segment( aes(x=name, xend=name, y=0, yend=value), color="grey") +
geom_point( color="green", size=4)
  
plot2<-ggplot(sample_data2, aes(x = x)) + 
geom_density(fill="#69b3a2", color="#e9ecef", alpha=0.8)
  
plot3<-ggplot(sample_data3, aes(x=name, y=value)) + 
geom_bar(fill="#69b3a2", stat = "identity")
  
# Divide frame in grid using grid.arrange function 
# and put above created plot int it
grid.arrange(plot1, plot2,plot3, ncol= 3)

Producción: