如何在ggplot中减小geom_point()绘制的点在X轴上的相对距离

你说得太对了，靠放大所有元素或者缩放整个图表尺寸来拉近点的距离，确实是个笨办法——其实咱们可以直接针对X轴的空白区域下手，不用动其他元素的大小，就能让点几乎挨在一起。给你几个简单的方案：

1. 去掉X轴两端的默认空白 #

ggplot默认会在轴的两端预留一小段空白，这就是点之间看起来有多余距离的原因之一。用scale_x_continuous()的expand参数把这些空白去掉，就能立刻拉近点的间距：

library(ggplot2) # 注意哦，包名是ggplot2不是ggplot~
plotdata <- data.frame(my_y = rnorm(3), my_x = 1:3)

ggplot(plotdata, aes(x = my_x, y = my_y)) + 
  geom_point(size = 3) + # 放大点方便观察效果
  scale_x_continuous(expand = c(0, 0)) # 移除轴两端的空白扩展

2. 手动锁定X轴范围，精准压缩间距 #

如果想让点几乎完全接触，可以把X轴的范围严格限定在你的数据最小值和最大值之间，再配合expand=0，这样点会紧紧贴在图表左右边缘：

ggplot(plotdata, aes(x = my_x, y = my_y)) + 
  geom_point(size = 3) +
  scale_x_continuous(
    limits = c(min(plotdata$my_x), max(plotdata$my_x)), 
    expand = c(0, 0)
  )

3. 把X轴转为分类变量（如果适用） #

如果你的X轴数值本质是分类标签（比如这里的1、2、3是分组而不是连续数值），把my_x转成因子后，ggplot会自动用分类轴的逻辑排布点，间距会更紧凑，再去掉空白就完美了：

plotdata$my_x <- as.factor(plotdata$my_x)

ggplot(plotdata, aes(x = my_x, y = my_y)) + 
  geom_point(size = 3) +
  scale_x_discrete(expand = c(0, 0))

为什么缩放图表没用？ #

因为缩放整个图表时，轴的空白比例是固定的——比如原来留10%的空白，缩小图表后还是留10%，所以点之间的相对距离不会变化。而上面的方法是直接减少/移除空白区域，让点在图表中占据更多空间，自然就拉近了它们的距离。

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