Combine dos gráficos ggplot2 de diferentes DataFrame en R

En este artículo, vamos a aprender cómo combinar dos gráficos ggplot2 de diferentes tramas de datos en el lenguaje de programación R. Aquí en este artículo estamos usando un gráfico de dispersión, pero se puede aplicar a cualquier otro gráfico.

Primero dibujemos individualmente dos diagramas de dispersión ggplot2 por diferentes marcos de datos, luego veremos cómo combinarlos, es decir, cómo dibujar ambos diagramas en un campo de diagrama. 

Parcela 1:

# Load Packages
library("ggplot2")
  
# DataFrame for first Scatterplot
pointDF1 <- data.frame(XDF1 = rnorm(50),
                       YDF1 = rnorm(50))
  
# Create First Plot using ggplot2
ggplot(pointDF1, aes(XDF1, YDF1)) +               
  geom_point(fill = "dark green", color = "black",
             size = 5, shape = 21)+
  ggtitle("Plot-1")

Producción: 

Primera parcela ggplot2

Parcela 2: 

# Load Packages
library("ggplot2")
  
# DataFrame for second Scatterplot
pointDF2 <- data.frame(XDF2 = rnorm(50), 
                       YDF2 = rnorm(50))
  
# Create Second Plot using ggplot2
ggplot(pointDF2, aes(XDF2, YDF2)) +               
  geom_point(fill = "green", color = "black", 
             size = 5, shape = 21)+
  ggtitle("Plot-2")

Producción:

Segunda parcela ggplot2

Ahora vamos a combinar los gráficos anteriores en un solo gráfico. Todo funciona normalmente excepto la parte de trazado. Combine la función para trazar las dos parcelas en un marco. 

Después de combinar los dos gráficos, surge la pregunta de qué etiquetas de eje se deben usar. La respuesta es que la función labs() se puede usar para dar etiquetas personalizadas. Este paso es completamente opcional.

Sintaxis:

labs(x = «Etiqueta X», y = «Etiqueta Y»)

Ejemplo:

# Load Packages
library("ggplot2")
  
# DataFrame for first Scatterplot
pointDF1 <- data.frame(XDF1 = rnorm(50), 
                       YDF1 = rnorm(50))
  
# DataFrame for second Scatterplot
pointDF2 <- data.frame(XDF2 = rnorm(50),
                       YDF2 = rnorm(50))
  
# Combine Two Plots of different
# DataFrames using ggplot2 
ggplot() +               
  geom_point(data = pointDF1, aes(XDF1,YDF1), 
             fill = "dark green", color = "black",
             size = 5, shape = 21)+
  geom_point(data = pointDF2, aes(XDF2,YDF2), 
             fill = "green", color = "black", 
             size = 5, shape = 21)+
  labs(x = "X-Data", y = "Y-Data")+
  ggtitle("Combined Plot")

Producción:

Gráfico combinado usando ggplot2