如何将2个图（ggplot）合并成一个图？ [英] How to combine 2 plots (ggplot) into one plot?

问题描述

通过使用R，是否可以将2个ggplot放在一起（即在同一个图上）？我希望展示来自2个不同数据框的趋势，而不是将它们彼此相邻，我想将它们集成在一个绘图中，只是改变其中一个（黑点）的颜色。

更具体地说，我有以下两种视觉效果：

  ggplot（visual1，aes（ISSUE_DATE，COUNTED））+ geom_point（）+ geom_smooth（fill =blue，color =darkblue，size = 1）
  

和

  ggplot（visual2，aes（ISSUE_DATE，COUNTED））+ geom_point（）+ geom_smooth（fill =red，color =red，size = 1）
  

他们看起来像这样（都有黑点，我需要将其中一个改为不同的东西）：

和

解决方案

创建一个包含您当前数据设置的单个组合图将看起来像这样

  p < -  ggplot （）= 
＃blue plot 
 geom_point（data = visual1，aes（x = ISSUE_DATE，y = COUNTED））+ 
 geom_smooth（x = ISSUE_DATE，y = COUNTED），fill =blue，
 color =darkblue，size = 1）+ 
＃红色阴谋
 geom_point（data = visual2，aes（x = ISSUE_DATE，y = COUNTED ））+ 
 geom_smooth（data = visual2，aes（x = ISSUE_DATE，y = COUNTED），fill =red，
 color =red，size = 1）
  

然而，如果您可以在绘图之前合并数据集，那么ggplot将自动为您提供图例，并且通常代码看起来更清洁一些

$ $ p $ visual1 $ group < - 1
visual2 $ group < - 2 $ b $ （visual12，aes（x = ISSUE_DATE，y = COUNTED，组=组，组=组，组=组，组=填充组），可视化12（可视化1，可视化2）

p <-ggplot组））+
地理区域m_point（）+
geom_smooth（size = 1）





By using R, is it possible to place 2 ggplot together (i.e., on the same plot)? I wish to show a trend from 2 different data frames and instead of putting them one next to the other, I'd like to integrate them together in one plot and only to change the color of one of them (the black dot).

To be more specific, I have the following 2 visuals:

ggplot(visual1, aes(ISSUE_DATE,COUNTED)) + geom_point() + geom_smooth(fill="blue", colour="darkblue", size=1)

and

ggplot(visual2, aes(ISSUE_DATE,COUNTED)) + geom_point() + geom_smooth(fill="red", colour="red", size=1)

They look like this (both have black dots and I'll need to change one of them to something different):

and

解决方案

Creating a single combined plot with your current data set up would look something like this

p <- ggplot() +
      # blue plot
      geom_point(data=visual1, aes(x=ISSUE_DATE, y=COUNTED)) + 
      geom_smooth(data=visual1, aes(x=ISSUE_DATE, y=COUNTED), fill="blue",
        colour="darkblue", size=1) +
      # red plot
      geom_point(data=visual2, aes(x=ISSUE_DATE, y=COUNTED)) + 
      geom_smooth(data=visual2, aes(x=ISSUE_DATE, y=COUNTED), fill="red",
        colour="red", size=1)

however if you could combine the data sets before plotting then ggplot will automatically give you a legend, and in general the code looks a bit cleaner

visual1$group <- 1
visual2$group <- 2

visual12 <- rbind(visual1, visual2)

p <- ggplot(visual12, aes(x=ISSUE_DATE, y=COUNTED, group=group, col=group, fill=group)) +
      geom_point() +
      geom_smooth(size=1)

这篇关于如何将2个图（ggplot）合并成一个图？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！