如何按第三類在r中訂購geom_bar圖

Question

我有一個包含3個類別的數據框，我想制作一個條形圖，其Y軸上的計數和x軸上的seq，但按深度排序（遠高於2），但我不知道該怎么做。

s <- df
head(s)
     count     depth   seq
1     10         1      A
2     20         2      AA
3     30         1      TT
4     25         3      C
5     40         2      AAA
6     12         2      G

這是我微不足道的嘗試：

ggplot(data = s, aes(x=as.factor(s$seq), y=count, color = depth)) + 
   geom_bar(stat="identity") 

不用說，但是我不太擅長編碼。

謝謝

Answer 1

我們可以在aes()使用reorder()函數，即

> ggplot(data = s, aes(x=reorder(as.factor(seq), -depth), y=count, fill = depth)) + 
     geom_bar(stat = 'identity') 

數據：

> dput(s)
structure(list(count = c(10, 20, 30, 25, 40, 12), depth = c(1, 
2, 1, 3, 2, 2), seq = structure(c(1L, 2L, 6L, 4L, 3L, 5L), .Label = c("A", 
"AA", "AAA", "C", "G", "TT"), class = "factor")), .Names = c("count", 
"depth", "seq"), row.names = c(NA, -6L), class = "data.frame")