ggplot2でboxplotのラベルを並べ替える方法

Question

1. NAsのない最初の図をプロットし、メジアンで注文したいと考えています。私はna.omitと下のコード1を使ってこれを行うことができると思います。

図1.にあるもの（CARAとCARC）を維持することにより、2番目の図をプロットしても、図のように同じ順序付けを維持するにはどうすればよい

2. 1.

 R G T 
EG1 2 20 carA 
EG2 4 40 carA 
EG3 8 80 carA 
EG4 10 100 carA 
EG5 NA 20 carB 
EG6 NA 40 carB 
EG7 NA 50 carB 
EG8 NA 90 carB 
EG9 4 50 carC 
EG10 8 60 carC 
EG11 12 70 carC 
EG12 24 90 carC 

CODE1

ggplot(a, aes(reorder(T, log2(R+1), median, order=TRUE), log2(R+1), fill=T)) + geom_boxplot()+coord_flip() 

CODE2

ggplot(a, aes(reorder(T, log2(G+1), median, order=TRUE), log2(G+1), fill=T)) + geom_boxplot()+coord_flip() 

Answer 1

最初にプロットから注文をキャプチャし、（原因coord_flipに）scale_x_discreteを使用して第2に制限を設定するためにそれを使用する必要があります。

limits <- levels(reorder(a$T, log2(a$R + 1))) 

ggplot(a, aes(reorder(T, log2(R + 1), median, order = TRUE), log2(R + 1), fill = T)) + 
    geom_boxplot() + 
    coord_flip() + 
    scale_x_discrete(limits = limits) 

ggplot(a, aes(reorder(T, log2(G + 1), median, order = TRUE), log2(G + 1), fill = T)) + 
    geom_boxplot() + 
    coord_flip() + 
    scale_x_discrete(limits = limits)