複数のファセットを持つggplot2のクラスタ化されたバーグラフから空の要素を削除します

Question

ggplot2でRベースプロットのより良いバージョンを作成しようとしています。私はggplot2のスタイルとカスタマイズが好きなので、共通の伝説だけでなく、私のデータは、いくつかの（しかし異なる）治療について同じ2つの観察グループを含む3つの別個のデータセットからなる。したがって、私は別の因子レベルで共通の凡例を持つ1つのグラフに3つの別々のプロットを生成したいと思います。私のポイントを説明するために、ここで最初の画像は、私がこれまでのRベースで生成されたものです：

私は自分のデータと全く同じ構造を有しているダミーデータとggplot2プロットを生成しようとしました：

foo<-data.frame(c(letters,letters),c(rep('T1',26),rep('T2',26)), 
runif(52),rep(c(rep('Ori1',12),rep('Ori2',8),rep('ori3',6)),2)) 
names(foo)<-c('Treatment','Type','Count','Origin') 

a<-ggplot(foo,aes(x = factor(Treatment),y = Count)) 
a+ facet_grid(Origin~., scales="free_y", space="free") + 
geom_bar(stat="identity",aes(fill=factor(foo$Type)),position="dodge") 
+theme_bw()+theme(axis.text.x=element_text(angle=60,hjust=1))+coord_flip() 

これは私に次の望ましくない結果をもたらします。

は、私は、スタックオーバーフローのトピックを認識していRemoving Unused Factors from a Facet in ggplot2とHow can I remove empty factors from ggplot2 facets?は、しかし、彼らは私がここに実現しようとするクラスタ化された棒グラフに対処していないと私は、しかし、今どのようにそれを解決するためにはありません、彼らは問題がある気がします。すべてのポインタは大歓迎です。

Answer 1

は、私のコメントを説明するために：あなたはcoord_flipを追加し、free_yに切り替える場合は、ある自由なスケールのいくつかのタイプで動作していないcoord_flipに関する特定のエラーを取得することを

注

a<-ggplot(foo,aes(x = factor(Treatment),y = Count)) 
a+ facet_wrap(~Origin, scales="free_x") + 
    geom_bar(stat="identity",aes(fill=factor(Type)),position="dodge") + 
    theme_bw() + 
    theme(axis.text.x=element_text(angle=60,hjust=1)) 

あなたの問題の原因。