就像 reorder() Alex Brown 的回答一样，我们也可以使用 forcats::fct_reorder() 。它基本上会根据应用指定函数后的第二个参数中的值对第一个参数中指定的因子进行排序（默认值 = 中位数，我们在这里使用它，因为每个因子级别只有一个值）。

遗憾的是，在 OP 的问题中，所需的顺序也是按字母顺序排列的，因为这是创建因素时的默认排序顺序，因此会隐藏此函数的实际作用。为了更清楚起见，我将用“Zoalkeeper”替换“Goalkeeper”。

library(tidyverse)
library(forcats)

theTable <- data.frame(
                Name = c('James', 'Frank', 'Jean', 'Steve', 'John', 'Tim'),
                Position = c('Zoalkeeper', 'Zoalkeeper', 'Defense',
                             'Defense', 'Defense', 'Striker'))

theTable %>%
    count(Position) %>%
    mutate(Position = fct_reorder(Position, n, .desc = TRUE)) %>%
    ggplot(aes(x = Position, y = n)) + geom_bar(stat = 'identity')