ggplot堆叠条形图变量顺序调整失败：Level重排无效问题排查

我来帮你拆解一下问题所在，以及对应的解决办法：

问题根源 #

你遇到的顺序混乱主要来自两个点：

1. scale_x_discrete(limits=unique(rs$Site))的干扰：你已经通过修改因子级别指定了顺序，但这行代码会强制x轴按照数据中值首次出现的顺序排列（unique()的返回顺序），直接覆盖了你设置的因子级别顺序。
2. coord_flip()的反转特性：这个函数会把离散轴的显示顺序完全反转，所以就算x轴顺序是对的，翻转后也会变成反向的。

分步解决 #

1. 正确设置因子级别（推荐方式）

不要直接修改levels，而是用factor()函数重新定义变量，这样更清晰且不易出错：

rs$Site <- factor(rs$Site, levels = c("Mature","Little East","Upper Fill","Lower Fill"))

2. 移除干扰的scale设置

删掉scale_x_discrete(limits=unique(rs$Site))这一行——既然已经用因子定义了顺序，ggplot会自动遵循这个顺序绘制x轴。

3. 调整翻转后的顺序

因为coord_flip()会反转x轴顺序，所以如果希望翻转后的y轴（原x轴）从上到下和你设置的因子级别一致（Mature → Little East → Upper Fill → Lower Fill），需要让翻转前的x轴顺序是反转后的因子级别。你有两种选择：

方法一：在scale中调整顺序

library(ggplot2)
library(scales)

ggplot(rs, aes(x = Site)) +
  geom_bar(aes(fill = At.Mature), position = 'fill') +
  scale_x_discrete(limits = rev(levels(rs$Site))) +  # 反转因子级别作为x轴顺序
  coord_flip()

方法二：设置因子时直接反转级别

# 直接按翻转后想要的顺序的反转来定义因子级别
rs$Site <- factor(rs$Site, levels = rev(c("Mature","Little East","Upper Fill","Lower Fill")))

ggplot(rs, aes(x = Site)) +
  geom_bar(aes(fill = At.Mature), position = 'fill') +
  coord_flip()

验证逻辑 #

举个简单例子：如果因子级别是A,B,C,D，翻转前x轴是A→B→C→D，翻转后y轴就会变成D→C→B→A。所以想要翻转后y轴是A→B→C→D，就得让翻转前x轴是D→C→B→A，也就是反转因子级别。

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