求助：ggplot2分面图X轴标签自定义设置问题

问题根源 #

你之前的代码存在两个核心问题：

1. 直接用全局的df$FULL.STATUS作为scale_x_discrete的标签参数，每个分面的X轴值数量/子集与全局数据集不匹配，导致首个分面后标签错位或不显示。
2. 用因子final.factors作为标签参数不符合要求，scale_x_discrete的labels需要字符向量或命名向量，因子只会显示自身水平，无法实现标签替换。

解决方案 #

1. 预处理数据，固定顺序并创建对应X轴列

首先将FULL.STATUS设为有序因子，强制保留你需要的顺序；同时创建包含SERIAL和FULL.STATUS的组合列，并基于FULL.STATUS的顺序设置该列的水平：

# 固定FULL.STATUS的顺序为指定值
df$FULL.STATUS <- factor(df$FULL.STATUS,
                         levels = c("Prior to SBV/MET", "During MET", "After MET"),
                         ordered = TRUE)

# 创建组合X轴列，按FULL.STATUS的顺序设置水平
df$x_axis <- factor(
  paste0(df$SERIAL, df$FULL.STATUS),
  levels = unique(paste0(df$SERIAL, df$FULL.STATUS)[order(df$FULL.STATUS)])
)

2. 绘制分面图，用命名向量匹配标签

创建一个命名向量，让每个组合X轴值对应到FULL.STATUS标签，确保每个分面的X轴标签都能正确匹配：

# 构建命名向量：组合值对应FULL.STATUS标签
label_mapping <- setNames(df$FULL.STATUS, df$x_axis)

ggplot(df, aes(x = x_axis, y = qPCR, group = SID_2)) +
  geom_line() +
  geom_point(size = 1) +
  facet_wrap(~SID_2, scales = "free_x", nrow = 2) +  # 仅放开X轴缩放更精准
  theme_bw() +
  theme(
    legend.position = "none",
    text = element_text(size = 6),
    axis.text.x = element_text(angle = 90, hjust = 1)
  ) +
  scale_x_discrete(labels = label_mapping) +
  ylab("Total Abundance") +
  xlab("") +
  ggtitle("Met Study - Complete qPCR Data")

额外说明 #

• 使用scales = "free_x"替代scales = "free"，避免Y轴不必要的缩放。
• 有序因子的设置确保了每个分面内的X轴都会按你指定的FULL.STATUS顺序排列，不受SERIAL的影响。

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