r - バーの値をインクリメントしない R 積み上げ棒グラフ

Question

私は R から始めて、積み上げ棒グラフを描画しようとしています。私のデータは次のとおりです。

   Groups AxisX AxisY
1       B     1 35476
2       B     2 31394
3       B     3 39305
4       B     4 33845
5       B     5 30295
6       B     6 25590
7       B     7 32197
8       B     8 27901
9       B     9 35936
10      B    10 31341
11      A     1 46468
12      A     2 42557
13      A     3 55158
14      A     4 49182
15      A     5 44825
16      A     6 39813
17      A     7 44900
18      A     8 40964
19      A     9 47823
20      A    10 44373

次のコマンドで作成されました。

dfx <- data.frame(Groups=rep(c("B", "A"), each=10),
                AxisX=rep(c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10"),2),
                AxisY=c(35476,31394,39305,33845,30295,25590,32197,27901,35936,31341,46468,42557,55158,49182,44825,39813,44900,40964,47823,44373))

積み上げ棒グラフを使用してこのデータをグラフ化したいのですが、これは棒ごとに値を増やしています。たとえば、次のようになります。

B     1 35476
A     1 46468

私はを頂きたい：

46468 |
35476 |
0     |

この方法ではありません：

81944 |
35476 |
0     |

このコードを使用してグラフを作成しています：

p <- ggplot(data=dfx, aes(x=AxisX, y=AxisY, fill=Groups)) +
geom_bar(stat="identity")

を追加しposition=position_dodge()ても問題ありませんが、グラフィックを重ねて表示したいと思います。

どのような変更を行う必要がありますか? または、グラフィックを希望どおりにするために他の方法を使用する必要がありますか?