如何將具有相同特徵的不同數據集的facet_grid合併到一個圖中？

Question

我具有由變量的指示日期兩個相同的數據組，兩個分類變量和工資：

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() 

我想將它們合併成on e圖的每個網格有兩個時間序列，而不是一個，其中右側的「扇區」而不是藍色的比例從8到3，我有一個像「數據集」這樣的兩個數據集的指示符，其中df1和DF。

Answer 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()