如何将具有相同特征的不同数据集的 facet_grid 组合到一个图中？答案

【问题标题】：How to combine facet_grid from different data sets with same features into one plot?如何将具有相同特征的不同数据集的 facet_grid 组合到一个图中？
【发布时间】：2016-08-14 15:10:24
【问题描述】：

我有两个相同的数据集，由一个表示日期的变量、两个分类变量和工资组成：

data("EmplUK", package="plm")
df<- head(EmplUK, 50)


ggplot(df, aes(x=year, y=wage, colour=sector)) + 
  stat_summary(fun.y=mean, geom="line", size=2) +
  stat_summary(fun.ymin=min, fun.ymax=max, geom="errorbar") +
  facet_grid(sector~firm)+theme_bw()

第二个数据集只是在工资方面有所不同：

df1<- head(EmplUK, 50)
df1$wage<- df1$wage +10

ggplot(df1, aes(x=year, y=wage, colour=sector)) + 
  stat_summary(fun.y=mean, geom="line", size=2) +
  stat_summary(fun.ymin=min, fun.ymax=max, geom="errorbar") +
  facet_grid(sector~firm)+theme_bw()

我想将它们组合成一个图表，以便每个网格有两个时间序列而不是一个，而不是右侧的“扇区”，蓝色刻度从 8 到 3 我有一个指标这两个数据集就像带有 df1 和 df 的“数据集”。

【问题讨论】：

标签： r ggplot2

【解决方案1】：

这样的？

library(ggplot2)
    data("EmplUK", package="plm")
    df<- head(EmplUK, 50)
    df1<- head(EmplUK, 50)
    df1$wage<- df1$wage +10
    df$source <- rep("df", 50) 
    df1$source <- rep("df1", 50) 
    dfAggregate <- rbind(df, df1)
    dfAggregate$source <- as.factor(dfAggregate$source)

    ggplot(dfAggregate, aes(x=year, y=wage, colour=source)) + 
            stat_summary(fun.y=mean, geom="line", size=2) +
            stat_summary(fun.ymin=min, fun.ymax=max, geom="errorbar") +
            facet_grid(sector~firm)+theme_bw()

【讨论】：