【ggplot】積み上げ棒グラフで軸の並びを変更したい

R version 4.0.3を使用しています。

ggplotで横向きの積み上げ棒グラフを描き、かつ合計値の順番にY軸の項目を並べたいです。
データはこのようになっています。

Id	type	count
TPR_12	A	7
BP_C	A	11
BP_C	B	3
DJ	A	8
DJ	B	5
C_N	A	9
C_N	B	4
AAA	A	4
AAA	B	8
OG	A	4
OG	B	8
NA	A	6
NA	B	6
T10	A	7
T10	B	5
RV	A	8
RV	B	1

以下のように作図を行いました。

> data <- read.csv("test.csv")
> p <- ggplot(data, aes(x=count, y=Id))
> p + geom_bar(stat="identity", aes(fill=type))

このとき、typeAとBの合計値の順にIdを並べる方法が分かりません。
下の図は理想の図をエクセルで作ったものです。このようにcontの合計値順に並べたいです。

ネットで検索すると、fct_reorder ?などがヒットするのですが、使い方が分からず困っています。

解決方法がお分かりでしたらご教授いただきたいです。

行動規範の内容に同意します

回答1件

このように書いてみてはどうでしょうか。

R
1p <- ggplot(data, aes(x=count, y=reorder(Id, count))
2p + geom_bar(stat="identity", aes(fill=type))

reorder(Id, -count) のようにマイナスをつければ逆順になります。

参考のコードです

R
1# library
2library(tidyverse)
3
4# create a dataset
5specie <- c(rep("sorgho" , 3) , rep("poacee" , 3) , rep("banana" , 3) , rep("triticum" , 3) )
6condition <- rep(c("normal" , "stress" , "Nitrogen") , 4)
7value <- abs(rnorm(12 , 0 , 15))
8data <- data.frame(specie,condition,value)
9
10# Stacked and reodered
11ggplot(data, aes(fill=condition, y=value, x=reorder(specie, -value))) + 
12  geom_bar(position="stack", stat="identity")