r - ggplot で facet_wrap を使用すると、x 軸の要素が 1 つだけ表示されます

Question

各ファセットが雇用のセクターを表し、各表示に 3 つの時点があるファセット棒グラフを作成しようとしています。

ここに私のコードとサンプルデータがあります

Year <- c("2002", "2010", "2012", "2002", "2010", "2012", "2002", "2010", "2012")
Year <- ordered(Year, levels = c("2002", "2010", "2012"))
Sector <- c("Production", "Processing", "Distribution", "Production", "Processing", "Distribution",
        "Production", "Processing", "Distribution")
Sector <- ordered(Sector, levels = c("Production", "Processing", "Distribution"))
Avg.Emp <- c(363, 4458, 2962, 225, 4767, 3552, 148, 5137, 3996)

df <- data.frame(Year, Sector, Avg.Emp)

データ型をチェックすると、すべてがチェックアウトされます。私の要因は適切に並べられており、私の雇用数は適切な要因と一致しています。ただし、ggplot を使用しようとすると、問題が発生します。ggplot コード:

library(ggplot2)
library(scales)
sampleplot <- ggplot(df, aes(x=Year, y=Avg.Emp)) + geom_bar(stat = "identity") + 
facet_wrap(~Sector) + ylim(0,5200) 

私の結果のプロットは、ファセットの各年に対して単一の値のみを示しています。どこで間違いを犯していますか？（画像がないことをお詫びします。十分な評判がありません）とにかく、適切なファセットで表示するために毎年の価値を得ることができますか?

編集 データフレームの作成方法を考えると、1年に1セクターしかないことに気づきました。更新された構文はこちらで、問題を修正しました

Year <- c("2002", "2002", "2002", "2010", "2010","2010","2012","2012","2012")
Year <- ordered(Year, levels = c("2002", "2010", "2012"))
Sector <- c("Production", "Processing", "Distribution", "Production", "Processing", "Distribution",
        "Production", "Processing", "Distribution")
Sector <- ordered(Sector, levels = c("Production", "Processing", "Distribution"))
Avg.Emp <- c(363, 4458, 2962, 225, 4767, 3552, 148, 5137, 3996)

df <- data.frame(年、セクター、平均従業員)