SOに関する他の同様の質問を調査しましたが、これを私のデータで機能させることができないようです。
私はこの結果を目指しています:

これは私のデータフレームです:
ルームディレックMB
路地-10 Rx 1
路地-11 Rx 7
路地-12 Rx 11
路地-10 Tx 23
路地-11 Tx 17
路地-12 Tx 20
私が実行すると:
ggplot(tp, aes(x=Room,y=MB)) + geom_area(aes(fill=factor(Direc)))
私はこの結果を得ます:

どうすればこれを機能させることができますか?