ggrepel多次运行同代码引发绘图边界变更及标注重叠问题咨询

问题根源分析 #

你遇到的两个核心问题都和ggrepel的工作机制直接相关：

1. 随机布局导致重叠：ggrepel默认通过随机搜索算法寻找不重叠的文本位置，所以每次运行代码时，标注的位置会产生差异，偶尔就会和你手动添加的"Controvers"注释撞在一起。
2. 绘图限制被修改：ggrepel在计算文本位置时，会自动扩展绘图的x/y范围，确保所有标注都能显示在视图内——哪怕这些文本原本不需要移动，它也会基于原始数据和文本尺寸调整整体边距，覆盖你手动设置的xlim/ylim。

针对性解决方案 #

下面是几个不需要全局set.seed或切换到geom_text的解决办法：

1. 用geom_text_repel的seed参数固定布局（替代全局set.seed）

如果你不想全局设置随机种子，但希望ggrepel的布局固定，可以直接在geom_text_repel()里指定seed参数。这样只会固定ggrepel的随机行为，不会影响代码中其他可能的随机操作：

ggplot(df, aes(x = df[, 2], y = df[, 1], label = noms)) + 
  geom_text_repel(fontface = "bold", seed = 123) +  # 单独给ggrepel设置种子
  geom_text(aes(x = max_x - 0.25, y = max_y - 0.15, label = "Controvers"), 
            fontface = "italic", angle = 40) + 
  xlim(c(-max_x - .1, max_x + .1)) + 
  ylim(c(-max_y - .1, max_y + .1)) + 
  theme_void() + 
  ggsave(file = "file.pdf", dpi = 1200, width = 25, height = 20, units = "cm")

2. 用coord_cartesian替代xlim/ylim锁定绘图范围

xlim和ylim会直接过滤超出范围的数据，而coord_cartesian只是缩放绘图视图，不会影响ggrepel计算文本位置的逻辑，但能强制锁定最终显示的范围，避免ggrepel随意扩展边距：

ggplot(df, aes(x = df[, 2], y = df[, 1], label = noms)) + 
  geom_text_repel(fontface = "bold") + 
  geom_text(aes(x = max_x - 0.25, y = max_y - 0.15, label = "Controvers"), 
            fontface = "italic", angle = 40) + 
  coord_cartesian(xlim = c(-max_x - .1, max_x + .1), 
                  ylim = c(-max_y - .1, max_y + .1), 
                  expand = FALSE) +  # 关闭自动扩展边距
  theme_void() + 
  ggsave(file = "file.pdf", dpi = 1200, width = 25, height = 20, units = "cm")

3. 单独控制Sirius B的标注位置

既然问题主要出在Sirius B和"Controvers"的重叠上，可以给这个点单独设置标注的偏移，避免它靠近右上角的注释：

# 拆分数据，单独处理Sirius B
df_regular <- df[df$noms != "Sirius B.", ]
df_sirius <- df[df$noms == "Sirius B.", ]

ggplot() + 
  # 绘制普通点的标注
  geom_text_repel(data = df_regular, 
                  aes(x = df_regular[, 2], y = df_regular[, 1], label = noms),
                  fontface = "bold") + 
  # 给Sirius B设置固定偏移，远离右上角
  geom_text_repel(data = df_sirius, 
                  aes(x = df_sirius[, 2], y = df_sirius[, 1], label = noms),
                  fontface = "bold",
                  nudge_x = -0.5,  # 向左偏移
                  nudge_y = -0.5) +  # 向下偏移
  geom_text(aes(x = max_x - 0.25, y = max_y - 0.15, label = "Controvers"), 
            fontface = "italic", angle = 40) + 
  xlim(c(-max_x - .1, max_x + .1)) + 
  ylim(c(-max_y - .1, max_y + .1)) + 
  theme_void() + 
  ggsave(file = "file.pdf", dpi = 1200, width = 25, height = 20, units = "cm")

额外优化建议 #

• 可以调整geom_text_repel的force参数（默认值为1），增大这个值会让文本更努力地远离其他元素和边界，进一步减少重叠概率。
• 如果不需要所有标注都在两个方向上避让，也可以用direction = "x"或direction = "y"限制标注只在单一方向上调整位置。

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