R语言Tibble中因子水平顺序错乱问题求助

云原生阿岚

2026-7-5

问题排查与解决

核心原因大概率是pivot_wider生成列时，默认会按字母序排序列名，而非严格遵循你设定的因子水平顺序。如果group_by+summarize过程中因子的约束被弱化（比如无数据的水平被自动丢弃、变量被隐式转为字符型），pivot_wider就会按字符顺序重排列，导致DNQ和Awful顺序颠倒。

具体排查与解决步骤：

检查汇总后的因子状态
在summarize之后、pivot_wider之前，运行代码确认变量类型和水平：
```
your_data_after_summarize %>% 
  pull(POST_600_WOBA_GRADE) %>% 
  str()
```
如果输出是chr（字符型）而非fct（因子型），说明过程中因子被转换；如果是因子但水平缺失，说明group_by自动丢弃了无数据的水平。

强制保留所有因子水平
在group_by时添加.drop = FALSE参数，确保即使某些因子水平无对应数据，也会被保留，避免因子结构丢失：

your_data %>% 
  filter(...) %>% 
  group_by(POST_600_WOBA_GRADE, .drop = FALSE) %>% 
  summarize(your_summary_var = mean(...) # 替换为你的汇总逻辑
  ) %>% 
  pivot_wider(names_from = POST_600_WOBA_GRADE, values_from = your_summary_var)

手动指定列顺序
如果上述方法无效，直接在pivot_wider中用names_order参数指定列顺序，严格沿用你最初设置的因子水平：

# 先保存预设的因子水平
grade_levels <- c("Elite", "Great", "Good", "Average", "Below Average", "Poor", "Awful", "DNQ")

your_data %>% 
  filter(...) %>% 
  group_by(POST_600_WOBA_GRADE) %>% 
  summarize(your_summary_var = mean(...)) %>% 
  pivot_wider(
    names_from = POST_600_WOBA_GRADE,
    values_from = your_summary_var,
    names_order = grade_levels
  )

另一变量正常的原因
另一同水平变量正常，大概率是因为它在group_by后所有因子水平都有对应数据，因子结构完整，pivot_wider默认保留了因子的水平顺序；而POST_600_WOBA_GRADE存在无数据的水平，导致group_by自动丢弃部分水平，变量转为字符型后按字母序排序。