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

Question

我正在RStudio使用ggplot2. 我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

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

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