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