如何将另一个数据集的折线图添加到已使用分面网格的现有折线图中？

Question

我正在使用 ggplot2 在 RStudio 中绘制图表。我的 R 情节代码如下：

g1 <- ggplot(mydata1, aes(x=month(date), y=rn)) + 
      geom_line() +
      geom_point(color="red", size=3) +
      geom_smooth(se=FALSE) +
      facet_grid(market ~ year(date))

g1 + theme_solarized() +
     scale_colour_solarized("blue")

以上代码给出以下输出：

我需要在上面的图中添加另一个折线图，数据将来自另一个数据集（我们称之为 mydata2），其格式结构与 mydata1 相同。第二个折线图不需要像现有图中那样具有平滑线。然而。我需要折线图的颜色与现有折线图的颜色不同。

这是 mydata2 的样子：

> head(mydata2)

     date    rn   market
1 1/1/2015  100    OTA
2 2/1/2015  127    OTA
3 3/1/2015  100    OTA
4 4/1/2015  100    OTA
5 5/1/2015   89    OTA

我怎样才能做到这一点？

Answer 1

您可以在单独的 geom_line() 调用中将 mydata2 作为 data= 参数传递：

+ geom_line(data = mydata2, aes(x = month(date) , y = rn))

如何将另一个数据集的折线图添加到已使用分面网格的现有折线图中？

How do I add a line graph from another dataset to an existing line graph where facet grid has been used?

r

plot

ggplot2

facet-grid