如何修改ggplot坐标轴总长度？自定义主题时缩短坐标轴

ggplot2的axis.line默认沿坐标轴全范围绘制，没有直接控制长度的参数。要实现短坐标轴效果，需隐藏默认坐标轴，手动绘制自定义长度的线段作为轴。

修改后的代码如下：

library(ggplot2)

x <- runif(100)
y <- runif(100)
df <- data.frame(x = x, y = y)

ggplot(df, aes(x, y)) +
  geom_point() +
  # 绘制自定义短x轴：从(0,0)到(0.2,0)，带箭头
  annotation_custom(
    grid::linesGrob(
      x = c(0, 0.2), y = c(0, 0),
      gp = grid::gpar(col = "black"),
      arrow = grid::arrow(length = unit(0.3, "cm"))
    ),
    xmin = 0, xmax = 0.2, ymin = 0, ymax = 0
  ) +
  # 绘制自定义短y轴：从(0,0)到(0,0.2)，带箭头
  annotation_custom(
    grid::linesGrob(
      x = c(0, 0), y = c(0, 0.2),
      gp = grid::gpar(col = "black"),
      arrow = grid::arrow(length = unit(0.3, "cm"))
    ),
    xmin = 0, xmax = 0, ymin = 0, ymax = 0.2
  ) +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    axis.title = element_text(face = "bold", size = 10),
    plot.title = element_text(size = 13),
    axis.ticks = element_blank(),
    axis.text = element_blank(),
    panel.background = element_rect(colour = "white"),
    plot.background = element_rect(colour = "white"),
    axis.line = element_blank()  # 隐藏默认坐标轴
  ) +
  coord_cartesian(xlim = c(0, 1), ylim = c(0, 1))  # 固定坐标范围，保证轴的位置正确

关键说明 #

• 调整linesGrob中的x（x轴）或y（y轴）参数可控制坐标轴长度：比如x = c(0, 0.2)表示x轴从数据范围的0延伸到0.2，数值对应你的数据刻度。
• 如果需要按绝对物理长度（如厘米）控制轴长，可改用unit()定义坐标，例如x = unit(c(0, 2), "cm")，同时搭配coord_fixed()确保比例一致。

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