如何在ggplot2主题中限定axis.line.x的显示长度？

ggplot2默认的axis.line.x会贯穿整个x轴范围，无法直接通过theme()参数调整其显示区间。要实现只展示指定范围的x轴轴线，核心思路是隐藏默认轴线，手动绘制自定义线段替代。以下针对你的两个场景给出具体解决方案：

场景1：mtcars散点图（仅显示x轴2-5区间的轴线） #

隐藏默认x轴轴线后，用geom_segment()绘制指定x范围的线段，并通过coord_cartesian(clip = "off")确保线段不会被绘图区域边界裁剪：

library(ggplot2)
data("mtcars")

ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  # 隐藏默认的x轴轴线
  theme(axis.line.x = element_blank()) +
  # 手动绘制x=2到x=5的轴线，y=-Inf对应绘图区域最底部
  geom_segment(aes(x = 2, xend = 5, y = -Inf, yend = -Inf), 
               color = "black", size = 0.5) +
  # 允许绘制区域外的元素，避免线段被裁剪
  coord_cartesian(clip = "off")

场景2：ggtree进化树（仅显示x轴0-0.04区间的轴线） #

ggtree兼容ggplot2语法，同样采用隐藏默认轴线+手动绘制的方式：

library(ggtree)
library(ggplot2)

# 构建进化树
tree <- read.tree(text= paste("(Organism1.006G249400.1:0.03977,", 
                              "(Organism2.022118m:0.01337,(Organism3.J34265.1:0.00284,",
                              "Organism4.G02633.1:0.00468)0.51:0.0104):0.02469);"))

# 基础绘图
p <- ggtree(tree) + geom_tiplab()

# 调整x轴轴线显示范围
p + 
  theme(axis.line.x = element_blank(),  # 隐藏默认轴线
        axis.text.x = element_text()) +
  # 绘制x=0到x=0.04的轴线
  geom_segment(aes(x = 0, xend = 0.04, y = -Inf, yend = -Inf),
               color = "black", size = 0.5) +
  coord_cartesian(clip = "off")

补充说明 #

如果需要更精准控制线段的y轴位置，可以先获取当前绘图的y轴最小值，再微调位置：

# 获取mtcars绘图的y轴最小值
y_min <- layer_scales(ggplot(mtcars, aes(wt, mpg)) + geom_point())$y$range$range[1]

ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  theme(axis.line.x = element_blank()) +
  # 把线段放在y最小值下方0.5的位置，避免与数据点重叠
  geom_segment(aes(x = 2, xend = 5, y = y_min - 0.5, yend = y_min - 0.5),
               color = "black", size = 0.5)

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