Reorder() неверно переупорядочивает фактор-переменную в ggplot

Я озадачен тем, почему ящики не заказывают в этом сюжете:

set.seed(200)
x <- data.frame(country=c(rep('UK', 10), 
                          rep("USA", 10), 
                          rep("Ireland", 5)),
                wing=c(rnorm(25)))

ggplot(x, aes(reorder(country, wing, median), wing)) + geom_boxplot()

enter image description here

Как я могу заказать ящики на основе наивысших медиан (слева направо)?

Ответы

Ответ 1

Потому что вы не сделали его упорядоченным фактором. Попробуйте

ggplot(x, aes(reorder(country, wing, median, order=TRUE), wing)) + geom_boxplot()

enter image description here

Ответ 2

ggplot(x, aes(reorder(country, wing, FUN = median), wing)) + geom_boxplot()