R语言 结合来自不同数据框架的两张ggplot2图

在这篇文章中，我们将学习如何在R编程语言中从不同的DataFrame中合并两个ggplot2图。在这篇文章中，我们使用的是散点图，但它也可以应用于任何其他图。

首先让我们通过不同的数据框架单独绘制两幅ggplot2散点图，然后我们将看到如何将它们结合起来，即如何在一个图域中绘制两幅图。

图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")

输出

第一幅ggplot2图

Plot 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")

输出

第二幅ggplot2图

现在我们要把上面的图合并成一个图。除了绘图部分，一切工作正常。结合函数将两张图绘制在一个框架内。

合并两个图后，问题出现了，应该使用什么轴标签。答案是可以用labs()函数来给出自定义标签。这一步是完全可选的。

语法

labs(x = “X-Label”, y = “Y-label”)

例子

# 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")

输出

使用ggplot2绘制的组合图