使用tidytext的reorder_within自定义ggplot分面轴的重复ID问题

你遇到的问题根源是reorder_within函数会给每个ID（比如术语、类别）添加分面变量的后缀（格式为ID[分面值]），以此实现分面内独立排序。但默认情况下，ggplot会把所有分面的ID（带不同后缀）都加载到每个分面的y轴刻度中，导致大量空行和重复显示。

核心解决方案 #

通过3步即可彻底解决：

1. 用reorder_within完成分面内的排序逻辑
2. 搭配tidytext的scale_y_reordered()替换默认y轴，自动去除后缀并仅显示当前分面的ID
3. 分面时设置scales = "free_y"，让每个分面的y轴独立渲染

修正后的完整代码示例 #

以简·奥斯汀著作的高频词分析为例：

library(tidytext)
library(ggplot2)
library(dplyr)

# 加载示例数据
data("austen_books")

# 预处理：提取高频词，用reorder_within实现分面内排序
top_words <- austen_books %>%
  unnest_tokens(word, text) %>%
  anti_join(stop_words) %>%
  count(book, word, sort = TRUE) %>%
  group_by(book) %>%
  slice_max(n, n = 10) %>% # 每个分面取Top10词
  ungroup() %>%
  mutate(word = reorder_within(word, n, book)) # 按词频在每本书内排序

# 绘图：解决空行问题
ggplot(top_words, aes(x = n, y = word)) +
  geom_col(fill = "#2c3e50") +
  # 分面设置scales="free_y"，让每个分面y轴独立
  facet_wrap(~book, scales = "free_y", ncol = 2) +
  # 关键：用scale_y_reordered处理y轴，只显示当前分面的ID
  scale_y_reordered() +
  labs(x = "词频", y = NULL, title = "简·奥斯汀著作各书高频词") +
  theme_minimal() +
  theme(
    axis.text.y = element_text(hjust = 1),
    strip.text = element_text(size = 11, face = "bold")
  )

关键细节解释 #

• reorder_within：给每个ID添加分面后缀（比如elizabeth[Pride & Prejudice]），确保每个分面内的排序不受其他分面影响。
• scale_y_reordered()：专门为reorder_within设计的坐标轴函数，会自动剥离后缀，并且只渲染当前分面中存在的ID，彻底消除空行。
• scales = "free_y"：必须开启这个参数，否则ggplot会强制所有分面使用相同的y轴刻度集合，导致空行问题复发。

如果你之前尝试的axes="all_y"（通常是ggforce包的参数），它的作用是保留所有分面的坐标轴，反而会加重空行问题，完全不需要使用。

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