按ggplot中的值总和对条形图进行排序

示例数据：

player <- c("a", "b", "a", "b", "c", 
            "a", "a", "b", "c", "b", 
            "c", "a", "c", "c", "a")
is.winner <- c(TRUE, FALSE, TRUE, TRUE, TRUE, 
               FALSE, TRUE, TRUE, TRUE, FALSE, 
               TRUE, TRUE, TRUE, TRUE, FALSE)

df <- data.frame(player, is.winner)

我的第一个图看起来像这样

ggplot(data=df, aes(x=player, y=as.numeric(is.winner))) +
  geom_bar(stat="summary", fun.y=sum) + 
  coord_flip()

我要执行的操作是按“ TRUE”值的总和对df $ player轴进行排序，以使其看起来像这样：

我意识到我可以使用这样的东西：

df$player <- factor(df$player, levels=c("b", "a", "c"))

但是实际数据具有更多的“玩家名称”。另外，我希望获得与赢率百分比等类似的东西。因此自动排序会很棒。下面的中奖百分比示例

df$is.winner <- factor(df$is.winner, levels=c("TRUE", "FALSE"))
df$player <- factor(df$player, levels=c("c", "b", "a"))

library(scales)
library(RColorBrewer)
ggplot(data=df, aes(x=player)) +
  geom_bar(aes(fill=is.winner),position='fill')+
  scale_y_continuous(labels=percent)+
  scale_fill_brewer(palette="Set2") +
  coord_flip()