离散有序X轴下geom_step曲线着色及geom_rect轴序异常问题

一、为什么geom_rect会引发X轴重排？ #

当X轴是离散型变量（字符或未指定水平顺序的因子）时，geom_rect()的xmin/xmax参数在调用该变量时，ggplot会默认将其视为无顺序的字符类型，完全忽略你之前为数据设定的自定义排序（比如按频率排序的因子水平）。而最初的geom_step()能保持正确顺序，是因为你预处理时已经把X轴变量转换成了带有指定水平顺序的因子，但geom_rect()不会继承这个因子的顺序规则，而是重新按字符的字母顺序解析X轴，最终导致轴的顺序被打乱。

二、生成带下方阴影且X轴顺序一致的图表 #

提供两种实用方案：

方案1：用geom_area()快速实现（推荐） #

geom_area()可以直接继承数据的因子顺序，配合stat="step"参数就能生成阶梯式的填充区域，无需手动处理位置：

library(ggplot2)
library(dplyr)

# 模拟并预处理数据（按频率排序为因子）
set.seed(123)
df <- data.frame(category = sample(c("B", "A", "D", "C"), 100, replace = TRUE))

df_summary <- df %>%
  count(category) %>%
  mutate(freq = n / sum(n), cum_freq = cumsum(freq)) %>%
  arrange(desc(freq)) %>%
  mutate(category = factor(category, levels = category))

# 绘图
ggplot(df_summary, aes(x = category, y = cum_freq)) +
  geom_area(stat = "step", fill = "#6699cc", alpha = 0.5) +
  geom_step(color = "#336699", size = 1) +
  labs(x = "类别", y = "累积频率") +
  theme_minimal()

方案2：用geom_rect()并手动指定数值位置 #

如果必须使用geom_rect()，可以将离散因子转换为对应的数值位置，通过数值定位矩形，避免顺序混乱：

# 为数据集添加X轴数值位置
df_summary <- df_summary %>% mutate(x_num = as.numeric(category))

ggplot(df_summary) +
  # 绘制填充矩形
  geom_rect(aes(xmin = x_num - 0.5, xmax = x_num + 0.5,
                ymin = 0, ymax = cum_freq),
            fill = "#6699cc", alpha = 0.5) +
  # 绘制阶梯线
  geom_step(aes(x = category, y = cum_freq), color = "#336699", size = 1) +
  # 强制X轴使用自定义因子顺序
  scale_x_discrete(limits = levels(df_summary$category)) +
  labs(x = "类别", y = "累积频率") +
  theme_minimal()

关键注意点 #

核心是确保X轴变量始终为带有指定水平顺序的因子，所有图层要么直接使用该因子，要么基于其数值位置计算，避免ggplot重新解析变量类型导致顺序错乱。

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