如何在分面ggplot的x轴两端添加自定义标签Ov和Cx

你遇到的问题核心是facet_wrap开启scales="free_x"后各分面x轴范围独立，固定写死的break值无法适配所有分面，使用ggplot2支持的函数式breaks参数即可实现需求。

修改后完整代码 #

all_prm %>% ggplot(aes(y_coord, prominence)) +
    geom_point() +
    facet_wrap(~interaction(ms, sample), scales="free_x") +
    # 修改部分：用函数动态获取当前分面的x轴最小、最大值作为刻度位置
    scale_x_continuous(
        breaks = ~ c(min(.x), max(.x)),
        labels = c("Ov", "Cx")
    ) +
    theme(
        axis.title.y=element_text(margin=margin(r=7)),
        axis.title.x=element_text(margin=margin(t=7)),
        panel.background = element_rect(fill='white', color='grey10')) +
    xlab("Oviduct-Cervical Axis") +
    ylab("Prominence")

注：上述函数式breaks参数需要ggplot2 3.3.0及以上版本支持，运行报错可先更新包：install.packages("ggplot2")

可选优化 #

如果觉得两端标签太贴近面板边缘，可以给刻度位置加微小偏移，避免标签被截断：

scale_x_continuous(
    breaks = ~ {
        x_range <- range(.x)
        # 偏移量为x轴总范围的2%，可按需调整
        offset <- diff(x_range) * 0.02
        c(x_range[1] + offset, x_range[2] - offset)
    },
    labels = c("Ov", "Cx")
)

效果参考 #

当前绘制效果 #

预期理想效果 #

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