我已经阅读了很多类似的问题，但是没有一个能够完全适合我的用例，我可以成功应用它们。
我有一个简单的条形图（geom_bar），它由一个带有级别type的变量构成。我用来构建它的代码是
r <- ggplot(clv[!is.na(clv$type),], aes(type))
r + geom_bar()
如何重新排序此处的级别，以便显示条形按降序排列？
（另外，我认为这可能很简单，不值得单独提出一个问题：我如何用每个栏的总数来标记每个栏？）
随意将其关闭并将我链接到适用的现有答案。遗憾的是，我自己找不到一个。
链接的答案完美无缺！
对于将来想要查看链接答案中的代码如何更改以适合我的用例的任何人，这是适用于我的代码：
clv <- within(clv[!is.na(clv$type),], type <- factor(type, levels=names(sort(table(type), decreasing=TRUE))))
ggplot(clv,aes(x=type)) + geom_bar()