ggplot2调用facet_wrap分面时如何仅展示对应子组的x轴标签

你当前代码里x轴映射使用了全局行索引1:nrow(fig13_melt)，同时在scale_x_discrete中硬编码了全量数据集的breaks、labels和limits，相当于强制所有分面共用完整的x轴刻度范围，facet的轴自适应逻辑完全失效，所以每个子图都会显示全部x轴标签。

核心调整两点：

• 直接将数据中的HLA列映射为x轴变量，不要使用手动生成的全局行号作为x轴映射值
• 分面时添加scales = "free_x"参数，允许每个分面的x轴根据自身包含的类别自由调整显示范围，不再强制展示全量刻度

修正后的完整可运行代码如下：

library(reshape2)
library(ggplot2)

# 数据读取与预处理逻辑保持不变
fig13 <- read.table("test.tsv", sep="\t", header=T, check.names=FALSE)
fig13 = fig13[-which(grepl("_w8", fig13$NOI_ID)),]
fig13_melt <- melt(fig13[c("TPM", "NOI_ID", "HLA", "variants")], id=c("NOI_ID", "HLA", "variants"))

hla_barplot = ggplot(fig13_melt, aes(x=HLA, y=value, fill=variants)) +
     geom_bar(stat="identity", position="dodge") + 
     ggtitle("HLA status", subtitle = "all samples") + 
     theme_bw() +
     theme(axis.title.y=element_blank(), axis.title.x=element_blank(), 
           plot.title = element_text(face = "bold", size = 15, hjust = 0.5),
           plot.subtitle=element_text(size=12, hjust=0.5, face="italic"),
           axis.text.y = element_text(size=6),
           axis.text.x = element_text(angle = 90, hjust=1, size=6)) +
     geom_text(aes(label = round(value,0), vjust = 1, size = 1)) +
     # 分面设置x轴自由缩放
     facet_wrap(.~ NOI_ID, nrow = 1, scales = "free_x")

hla_barplot

可选优化 #

如果需要固定每个分面内部HLA标签的展示顺序（和原始数据顺序一致），可以在绘图前对HLA列做因子转换：

library(dplyr)
fig13_melt <- fig13_melt %>%
  group_by(NOI_ID) %>%
  # 按每个NOI分组内的原始出现顺序设置HLA因子水平
  mutate(HLA = factor(HLA, levels = unique(HLA))) %>%
  ungroup()

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