r - X 値が同じ場合、ファセット グリッドの両方のグラフで X 軸を強制する

Question

ファセット用に 2 つのグループに X 軸の約 30 のカテゴリを持つデータがあります。これをランダムなデータで示します。

dataf <- data.frame(x=c(1:30), A=rnorm(30,20,5), B=rnorm(30,15,0.5))
datam <- melt(dataf, id="x")
ggplot(datam, aes(factor(x), value)) + 
  geom_bar(stat="identity") + 
  facet_grid(variable ~ .)

これは素晴らしいことですが、x 軸がそのグラフでも再現されていれば、上位グループのカテゴリをすばやく読み取るのが簡単になります。でも

ggplot(datam, aes(factor(x), value)) + 
  geom_bar(stat="identity") + 
  facet_grid(variable ~ ., scales="free")

値は両方のグループ化で同じであるため、x 軸に違いはありません。

バーのトップ グループでも X 軸を強制的に再現するにはどうすればよいですか?

Answer 1

facet_wrap代わりに使用してみてください:

ggplot(datam, aes(factor(x), value)) + 
    geom_bar(stat="identity") + 
    facet_wrap(~variable,nrow = 2,scales = "free")