如何在ggplot2散点图中避免特定数据点重叠且保留非重叠点位置

你想要的「最小移动量避免重叠、保留非重叠点位置」的需求，正好可以用ggrepel包的geom_point_repel来实现——它和geom_text_repel逻辑一致，会自动识别重叠的点，仅对需要调整的点进行最小幅度的x/y方向移动，完全保留非重叠点的原始位置。

完整实现代码 #

library(ggplot2)
library(ggrepel)

df <- data.frame(
  id = 1:9,
  x = c(1, 2, 2.1, 4, 5, 8.7, 9.1, 9, 8.9),
  y = c(10, 9, 9, 7, 6, 2.4, 2, 2.1, 2),
  size = rep(1:4, length.out = 9)
)

plot <- ggplot(df, aes(x = x, y = y)) +
  # 用geom_point_repel替换geom_point，实现点的智能排斥
  geom_point_repel(
    aes(size = size), 
    alpha = 0.8, 
    shape = 21, 
    color = "black",
    force = 0.5,  # 控制排斥力度，值越小移动幅度越小
    min.segment.length = 0,  # 可选：显示点到原始位置的连线，便于观察调整
    seed = 123  # 固定随机种子，保证结果可重复
  ) +
  # 搭配geom_text_repel，避免文本和点/其他文本重叠
  geom_text_repel(
    aes(label = id, size = 0.4*size), 
    color = "black",
    seed = 123
  ) +
  scale_size_area(max_size = 8) +
  xlim(1, 10) +
  ylim(1, 10) +
  theme_bw()

plot

关键参数说明 #

• force：控制排斥的强度，默认值是1。如果觉得点移动幅度过大，可以适当调小（比如示例中的0.5）；如果仍有重叠，可逐步增大。
• min.segment.length = 0：会画出每个点从原始位置到调整后位置的连线，方便你直观看到哪些点被移动、移动了多少，不需要的话可以删掉这个参数。
• seed：固定随机种子，确保每次运行代码得到的调整结果一致，适合需要稳定输出的场景。
• 其他参数（alpha/shape/size等）和原geom_point完全兼容，保留你原来的可视化风格。

为什么这个方案比jitter/dodge更合适 #

• position_jitter是全局随机抖动，会无差别移动所有点，哪怕原本不重叠的点也会偏离原位，破坏相对位置。
• position_dodge仅支持单一方向的偏移，无法处理需要同时调整x/y方向的重叠情况，且需要手动指定分组，不适合大数据集。
• geom_point_repel是智能局部调整：只移动确实重叠的点，且移动幅度以刚好避免重叠为限，完美保留非重叠点的原始位置和整体数据的相对分布。

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