r - ファセット時に複数のプロットに値を繰り返す

Question

次のような data.frame があります。

> foo
        class      type    (0,10]    (10,20]    (20,30]    (30,40]
    1       A      <NA>       0.6        0.2        0.1        0.1
    2       B      <NA>       0.7        0.1        0.1        0.1
    3       C         1       0.5        0.4        0.1        0.0
    4       C         2       0.5        0.3        0.1        0.1
    5       D         1       0.7        0.3        0.0        0.0
    6       D         2       0.7        0.2        0.0        0.1
    7       E         1       0.4        0.3        0.2        0.1
    8       E         2       0.5        0.3        0.1        0.1

私はクラスとタイプで溶けてバープロットを行います:

ggplot(melt(foo, id=c("class", "type")), aes(x=variable, y=value, fill=class)) +
  geom_bar(position="dodge") +
  facet_grid(type ~.)

実際にfacet_grid()は3つのグラフを作成しますが、クラスAとBがタイプであることを「無視」して、タイプ1とタイプ2の両方をファセットに表示し、2つのグラフ（AとBの値）のみを取得することを望んでいます実際、繰り返す必要があります):

手動で変更することを避け、A と B をタイプ 1 と 2 で複製するようにしています。これは、他のグラフ/テスト用に元の data.frame が必要なためです。

（列の順序がランダムで申し訳ありません。自宅では職場のものとは異なるバージョンを使用しており、なぜそれが起こるのかわかりません）