如何在ggplot单个分面内按coef升序排列geom_point？

问题说明 #

1. 需要根据连续变量coef对y轴分类变量var进行分面内排序，使用reorder()时出现「invalid argument to unary operator」错误
2. 仅在最左侧分面显示y轴刻度标签，同时保证分面内按coef排序

解决方案一：使用tidytext包实现分面内排序 #

tidytext包的reorder_within()函数专门适配分面场景下的排序需求，搭配scale_y_reordered()可自动修正轴标签格式：

# 安装并加载依赖包
install.packages("tidytext")
library(tidyverse)
library(tidytext)

# 绘图
ggplot(d, aes(x = coef, y = reorder_within(var, coef, type))) +
  geom_point(size = 4) +
  facet_wrap(~type, nrow = 1, scales = "free_x") +
  geom_vline(xintercept = 0, linetype = "dashed", color = "black", size = .3) +
  scale_y_reordered() + # 修正排序后的轴标签
  theme_light() +
  theme(
    # 仅左侧分面显示y轴标签
    axis.text.y = element_text(color = if_else(seq_along(axis.text.y) <= n_distinct(d$var), "black", "transparent")),
    strip.placement = "outside" # 调整分面标签位置，避免遮挡y轴
  )

解决方案二：使用ggh4x包实现灵活的分面主题控制 #

如果需要更灵活的分面配置，ggh4x包的facet_wrap2()支持单独保留指定分面的y轴标签，无需手动计算标签数量：

# 安装并加载依赖包
install.packages("ggh4x")
library(tidyverse)
library(ggh4x)

# 按分面分组排序var
d <- d %>%
  group_by(type) %>%
  mutate(var = fct_reorder(var, coef)) %>% # 按coef值对当前分面的var排序
  ungroup()

# 绘图
ggplot(d, aes(x = coef, y = var)) +
  geom_point(size = 4) +
  facet_wrap2(~type, nrow = 1, scales = "free_x",
              strip_toggle = strip_toggle(which = "y", keep = 1)) + # 仅保留第一个分面的y轴标签
  geom_vline(xintercept = 0, linetype = "dashed", color = "black", size = .3) +
  theme_light()

错误原因说明 #

之前使用reorder()出错，核心原因是未适配分面内排序的需求：默认reorder()是全局排序逻辑，而分面场景下需要按分组（type）单独对var排序。使用fct_reorder()结合group_by()，或reorder_within()这类分面专用函数，即可避免该错误。

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