请把条形图从高到低排序，即第一个条形图应该是最高的，最靠右的条形图应该是最低的

好的，我们只需要在`ggplot()`函数中加入`coord_flip()`函数，将x轴和y轴交换，就能够实现条形图从高到低排序，代码如下：

library(tidyverse)

tb_words %>%
  mutate(first_letter = str_sub(words, 1, 1)) %>%
  group_by(first_letter) %>%
  summarize(count = n()) %>%
  arrange(desc(count)) %>%
  ggplot(aes(x = fct_reorder(first_letter, count), y = count)) +
  geom_col(fill = "steelblue") +
  labs(x = "首字母", y = "单词数量", title = "首字母与单词数量的关系") +
  coord_flip()

执行以上代码，可以得到一张按照单词数量从高到低排列的条形图。