如何为ggplot2中facet_wrap生成的所有子图添加重复x轴标签

是可以实现的，具体操作如下：

核心修改方案（适配ggplot2 v3.3.0及以上版本） #

在原有facet_wrap配置中补充两个参数即可：

• axes = "all"：让所有分面都显示完整坐标轴
• axis.labels = "all"：让所有分面都保留坐标轴标签，不会仅保留边缘分面的标签

你提供的代码修改后完整版如下：

# 先确认ggplot2版本，低于3.3.0先执行升级： install.packages("ggplot2")
library(ggplot2)

# 示例数据集构造
dat <- structure(list(Exposure = c("Insulin", "Insulin", "Insulin"), 
    Outcome = c("Cancer1", "Cancer2", "Cancer3"), OR = 3:5, LCI = c(2.8, 
    3.8, 4.8), UCI = c(3.2, 4.2, 5.2)), class = "data.frame", row.names = c(NA,-3L))

p <- ggplot(dat, aes(x=Exposure, y=OR, ymin=LCI, ymax=UCI)) + 
  geom_linerange(position=position_dodge(width = 0.5)) +
  geom_hline(yintercept=1, lty=2) +
  geom_point(stroke = 0.5,position=position_dodge(width = 0.5)) +
  coord_flip() +
  # 新增axes和axis.labels两个参数
  facet_wrap(~Outcome, nrow=2, scales="free", axes = "all", axis.labels = "all")

p <- p + theme_bw() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),text = element_text(size=13.1))

p

低版本ggplot2替代方案 #

如果无法升级ggplot2版本，可以借助ggh4x扩展包实现：

1. 先安装扩展包：install.packages("ggh4x")
2. 将facet_wrap替换为facet_wrap2，配置参数如下：

library(ggh4x)
# 其余代码不变，仅修改分面部分
p <- p + facet_wrap2(~Outcome, nrow=2, scales="free", axes = "all", remove_labels = "none")

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