ggplot中如何仅显示交互变量里的study_day作为x轴标签？

嘿，我懂你这个痛点——用交互变量当x轴、靠fill区分另一个变量时，x轴标签堆在一起还重复显示study_day，手动写labels又适配不了分面里不同的study_day，其实有两种灵活的解决办法：

方法1：提前处理数据中的x轴变量 #

我们可以先把交互变量的标签改成只显示study_day，同时保留底层的分组信息，这样ggplot直接用处理后的变量就行：

library(ggplot2)
library(dplyr)
library(forcats)

# 补全模拟数据集还原场景
set.seed(1)
df <- expand.grid(
  study_day = c(1, 2, 3),
  variable = c("A", "B", "C"),
  facet = c("Group1", "Group2")
) %>%
  mutate(value = rnorm(nrow(.)))

# 生成交互变量并修改标签，只保留study_day部分
df <- df %>%
  mutate(
    x_axis = interaction(study_day, variable),
    # 拆分交互因子的默认点分隔符，提取第一部分（study_day）
    x_axis = fct_relabel(x_axis, ~ strsplit(., "\\.")[[1]][1])
  )

# 绘图
ggplot(df, aes(x = x_axis, y = value, fill = variable)) +
  geom_col(position = "dodge") +
  facet_wrap(~facet) +
  labs(x = "Study Day")

这种方法的好处是数据逻辑清晰，后续调整x轴也更方便，不管分面里的study_day是啥，标签都会自动对应。

方法2：直接在ggplot中动态修改刻度标签 #

如果不想改动原始数据，也可以在scale_x_discrete()里用一个自定义函数来提取study_day，完全不用手动指定labels：

library(ggplot2)

# 用原始交互变量绘图，动态生成标签
ggplot(df, aes(x = interaction(study_day, variable), y = value, fill = variable)) +
  geom_col(position = "dodge") +
  facet_wrap(~facet) +
  scale_x_discrete(
    labels = function(x) {
      # 对每个x轴标签拆分，提取study_day部分
      sapply(strsplit(x, "\\."), function(y) y[1])
    },
    name = "Study Day"
  )

这里的核心是labels = function(x)——它会自动遍历x轴的每个刻度标签，拆分后提取出study_day，不管分面里的study_day有多少种，都能自动适配。

小提示 #

如果你的交互变量不是用interaction()生成的（比如是自己用paste()拼接的字符串，分隔符是下划线_），只要把strsplit()里的分隔符改成对应的就行，比如strsplit(x, "_")。

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