ggplot使用facet分面时如何动态为x轴标签添加自定义后缀

错误原因 #

scale_x_discrete的labels参数回调函数仅能接收x轴的分类取值作为输入，无法直接访问数据集内的其他列，且ggplot2默认分面的坐标轴标签为全局统一配置，不同分面无法直接使用数据集内的分组后缀生成差异化标签，因此会触发变量找不到的报错。

解决方法 #

方法1：原生ggplot2实现（无需额外依赖） #

直接在数据集内提前拼接好需要显示的x轴标签，搭配分面的自由x轴参数即可实现效果：

library(tidyverse)

dat <- data.frame(grp = c("a", "a", "b", "b"),
           ep = c("r1", "r2", "r1", "r2"),
           val = c(3, 5, 2, 5),
           suffix = c("_w", "_x", "_y", "_z"))

# 提前拼接x轴显示标签，同时保持原ep的排序逻辑
dat <- dat %>% 
  mutate(ep_label = factor(paste0(ep, suffix), 
                           levels = unique(paste0(ep, suffix)[order(ep)])))

dat %>% 
  ggplot(aes(x = ep_label, y = val, fill = ep)) +
  geom_col(position = "dodge") + 
  facet_wrap(~grp, scales = "free_x") +
  labs(x = "ep") # 可将x轴标题还原为原始含义

方法2：使用ggh4x包实现（无需修改原始变量映射） #

如果不想修改原始x轴的映射逻辑，可以使用ggh4x包的分面专属坐标轴配置功能实现：

library(tidyverse)
library(ggh4x)

dat <- data.frame(grp = c("a", "a", "b", "b"),
           ep = c("r1", "r2", "r1", "r2"),
           val = c(3, 5, 2, 5),
           suffix = c("_w", "_x", "_y", "_z"))

# 批量生成各分面的标签映射
label_map <- dat %>% 
  group_split(grp) %>% 
  map(~setNames(paste0(.$ep, .$suffix), .$ep))

dat %>% 
  ggplot(aes(x = ep, y = val, fill = ep)) +
  geom_col(position = "dodge") + 
  facet_wrap(~grp, scales = "free_x") +
  facetted_pos_scales(
    x = map(label_map, ~scale_x_discrete(labels = .x))
  )

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