如何让ggplot2因子列柱状图按计数降序排列并优化？

问题根源 #

你遇到的问题核心是：虽然对数据框做了排序，但Phenotype是因子类型，ggplot默认按照因子的原始水平顺序绘图，而非数据框的行顺序。另外你的代码里还有两处拼写错误：rename里的Varl应为Var1，Freg应为Freq，这也可能导致数据处理出错。

修正后的代码 #

用tidyverse流程可以更简洁完成统计、排序和因子水平重置，同时优化图表展示：

library(viridis)
library(tidyverse)

# 统计计数+降序排序+重置因子水平
phenotype <- tiering %>%
  count(Phenotype, name = "Total") %>% # 直接统计每个表型的数量，命名为Total
  arrange(desc(Total)) %>% # 按计数降序排列
  mutate(Phenotype = fct_inorder(Phenotype)) # 将因子水平设置为当前行的顺序

# 绘制优化后的柱状图
P <- ggplot(phenotype, aes(x = Phenotype, y = Total, fill = Total)) +
  geom_col() +
  geom_text(aes(label = Total), vjust = -0.3, size = 3.5) + # 把数值标签移到柱子上方，避免遮挡
  theme_classic() +
  ggtitle("主要表型统计") +
  scale_fill_viridis(option = "viridis") +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1), # 旋转x轴标签，防止长文本重叠
    plot.title = element_text(hjust = 0.5) # 标题居中对齐
  )

print(P)

关键优化点说明 #

• 重置因子水平：fct_inorder()函数（来自tidyverse的forcats包）会把因子的水平顺序设置为数据框当前的行顺序，确保ggplot按降序绘制柱子。
• 文本位置调整：将vjust设为-0.3，让数值标签显示在柱子顶部上方，避免被填充色挡住。
• 标签旋转：旋转x轴标签45度并右对齐，解决长表型名称重叠的问题。
• 标题居中：让图表标题更美观协调。

内容的提问来源于stack exchange，提问作者Ar1229