如何移除部分X轴并保留ggplot2绘图的X轴范围

要实现保留绘图区域的X轴限制（让文本能在数据范围外显示），同时只显示原始数据范围内的X轴部分，可以通过自定义X轴元素结合coord_cartesian来实现，具体步骤如下：

步骤1：获取原始数据的X范围 #

先提取数据中Sepal.Length的最小和最大值，确定需要显示的X轴有效范围：

x_min <- min(iris$Sepal.Length)
x_max <- max(iris$Sepal.Length)

步骤2：修改绘图代码 #

通过scale_x_continuous控制刻度显示范围，隐藏默认X轴线后自定义绘制仅到原始数据最大值的轴线，同时用coord_cartesian保留足够的绘图空间放置文本：

library(ggplot2)
data(iris)

# 获取原始数据的X边界
x_min <- min(iris$Sepal.Length)
x_max <- max(iris$Sepal.Length)

ggplot(data=iris, aes(x=Sepal.Length, y=Species)) + 
  geom_point() + 
  # 保留绘图区域X范围到10，确保文本能显示
  coord_cartesian(xlim=c(x_min, 10)) + 
  # 添加右侧文本，左对齐避免超出
  geom_text(aes(y=Species, x=9, label=Species), hjust=0) + 
  # 设置X轴刻度仅显示原始数据范围内的值
  scale_x_continuous(breaks = seq(floor(x_min), ceiling(x_max), by=1)) + 
  # 隐藏默认X轴线，自定义绘制X轴（仅到原始数据最大值）
  theme_classic() +
  theme(
    axis.line.x = element_blank(),
    plot.margin = margin(5.5, 25, 5.5, 5.5, "pt") # 右侧留足文本空间
  ) +
  geom_segment(aes(x=x_min, xend=x_max, y=0, yend=0), color="black")

效果说明 #

• 绘图区域依然保留xlim(4,10)的范围，确保x=9的文本能正常显示
• X轴的刻度和轴线仅延伸到原始数据的Sepal.Length最大值（约7.9），不会覆盖到右侧文本区域
• 通过plot.margin调整右侧边距，避免文本被裁剪

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