如何按第三类在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")