使用ggh4x的facet_wrap2实现仅显示外部轴数值标签（保留内部刻度）

要实现仅最外层分面显示轴数值标签，内部分面保留刻度但隐藏标签，同时保持所有分面轴限一致，可按以下方式修改代码：

核心修改点 #

• 利用ggh4x包的panel_row()和panel_col()函数，在theme()中控制轴文本的显示逻辑：
  • x轴文本仅在最后一行（第5行）分面显示，其余行隐藏
  • y轴文本仅在第一列分面显示，其余列隐藏
• 明确设置scales = "fixed"确保所有分面轴范围完全一致，配合coord_cartesian()锁定y轴限

修改后的完整代码 #

library(ggplot2)
library(ggpubr)
library(ggh4x)

ggline(ACE2data2, x = "Time", y = "Fluorescence") +
  labs(x = "Time (min)", y = "RFU Ex/Em 320/420nm") +
  theme(
    axis.title.x = element_text(size = 22),
    axis.title.y = element_text(size = 22),
    # 仅最后一行分面显示x轴数值标签
    axis.text.x = element_text(
      colour = ifelse(panel_row() == 5, "black", "transparent"),
      size = 12 # 可根据需求调整标签字号
    ),
    # 仅第一列分面显示y轴数值标签
    axis.text.y = element_text(
      colour = ifelse(panel_col() == 1, "black", "transparent"),
      size = 12
    ),
    strip.text.x = element_blank(),
    strip.background = element_blank()
  ) +
  facet_wrap2(~ Dilution,
              nrow = 5,
              ncol = 4,
              axes = "all", # 保留所有分面的轴刻度
              scales = "fixed" # 强制所有分面轴限一致
  ) +
  force_panelsizes(rows = unit(4, "cm"), cols = unit(4, "cm")) +
  coord_cartesian(ylim = c(0, 10000))

说明 #

• 用transparent（透明色）替代element_blank()，既能隐藏标签文本，又能保留轴刻度的占位空间，避免分面布局偏移
• 若Time是连续型变量，x轴刻度会自动保持一致；若是离散型变量，同样仅在最底部显示标签

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