r - ggplot2のx軸に複数の次元を持つ積み上げ棒グラフ

Question

x 軸に 2 次元の積み上げ棒グラフを作成したいと考えています。これまでのところ、1 つの次元の例しか見つけることができませんでした (以下に例として示します)。しかし、次の設定が必要です: メイン x 軸 = ケース、サブ x 軸 = 日、塗りつぶし = カテゴリ、y = 変数。だから私は、「M」と「F」の隣り合った2つの積み上げ棒グラフの比較を探しています。

サンプルデータ

foo <- data.frame(case=c("A","A","A","A","A","A",
                         "B","B","B","B","B","B"),
                  category=c("A","A","B","B","C","C",
                             "A","A","B","B","C","C"),
                  day=c("M","F","M","F","M","F",
                        "M","F","M","F","M","F"),
                  var=c(rnorm(n=12,mean=10)))

1 次元 x 軸の例

ggplot(foo, aes(x=case, y=c(var),
                fill=category)) +
  geom_bar(stat="identity")

しかし、私が本当にやりたいことは、このようなものです（エラーが発生します）

ggplot(foo, aes(x=c(case, day), y=c(var),
                fill=category)) +
  geom_bar(stat="identity")

私は facet_wrap を 2 番目の次元として見ていますが、x 軸に配置できないようですか?

ggplot(foo, aes(x=day, y=c(var),
                fill=category)) +
  geom_bar(stat="identity") +
  facet_wrap(~ case)

私が探しているものが明確であることを願っています。そうでない場合は、明確にするために編集して喜んでいます。

編集:大まかにどのように見えるかの例。