通过R中的面网格从4个不同的图中创建1个图

我有以下数据帧：

我想把这两个不同的数据集相对地画出来，比如“总量美国地质调查局”和“总量美国地质调查局”以及“海水淡化美国地质调查局”和“海水淡化美国地质调查局”等等

我设法在独立的绘图中这样做，但现在我想使用facet_wrap的facet_网格将它们绘制在一起，我搜索了整个互联网，但找不到类似的示例

有可能吗

---

希望收到你们的来信。

你们可以想办法绘制这些图表。由于您没有提供一个可复制的代码，我通常会向您解释您可以做什么。 将两个图形保存在两个单独的变量中：

a <- graph code for 'total_USGS' vs 'total_WRI' 
b <- graph code for 'desalination_USGS' vs 'desalination_WRI'

---

首先，我创建了4个不同的图表：

totalComparison=ggplot（stateSum）+几何点（aes（x=total\u USGS，y=total\u WRI））+geom\u abline（斜率=1，截距=0，颜色='红色'）totalComparison

海水淡化比较=ggplot（stateSum）+几何点（aes（x=海水淡化，y=海水淡化），几何点（斜率=1，截距=0，颜色=红色）海水淡化比较

surfacewaterComparison=ggplot（stateSum）+geom_点（aes（x=surfacewater\u USGS，y=surfacewater\u WRI））+geom_线（斜率=1，截距=0，颜色为红色）surfacewaterComparison

groundwaterComparison=ggplot（stateSum）+地质点（aes（x=地下水，y=地下水））+geom-abline（斜率=1，截距=0，颜色为红色）地下水比较

然后我使用grid.arrange创建了一种镶嵌面包裹：

totalGrid=grid.arrange（总比较、海水淡化比较、地表水与地下水比较、ncol=2、nrow=2）

这就给出了：

---

你好，罗莱克斯。没有人回答您的上一个问题，因为您没有提供数据样本。您的数据截图是无用的，因为我们无法复制和粘贴数据以测试可能的解决方案。请编辑您的问题以包含一些实际数据，而不是再次发布相同的问题。尝试在控制台中键入

dput（my_dataframe）

，并将结果粘贴到问题中。除非你这样做，否则真的不可能帮助你。谢谢你的回复，我会的！在上一个问题的帮助下，我已经解决了这个问题！

library(gridExtra)
grid.arrange(a, b)