如何固定R语言ggplot2循环绘图时geom_text_repel的标签位置？

有两种可靠方法可以固定标签位置，根据你的数据情况选择：

方法一：固定随机种子（简单高效，适合站点坐标固定的场景） #

ggrepel的标签布局算法带有随机性，只要在geom_text_repel中指定固定的seed参数，每次循环就会生成完全一致的标签位置。

修改代码如下：

#...Previous code...
geom_point(data=ubic, 
           aes(x=X,y=Y), 
           shape=24,
           size=0.6,
           fill="#006400",
           color="#006400") +
geom_text_repel(data=ubic,
                aes(x=X,y=Y,label=Estation),
                color="#006400",
                size=3,
                seed = 123)  # 固定随机种子，数值可任意指定
#...Subsequent code...

只要站点的X/Y坐标不变，每次循环的标签位置就会完全一致。

方法二：提前计算并复用标签位置（适合站点坐标可能变化的场景） #

如果站点坐标会随月份变动，或者需要完全锁定首次计算的位置，可以先基于基准数据计算一次标签位置，后续循环直接复用这个位置：

1. 先基于第一个月的基准数据计算标签位置：

library(ggplot2)
library(ggrepel)

# 假设ubic_base是第一个月的站点数据
base_plot <- ggplot() +
  geom_point(data = ubic_base, aes(x=X,y=Y), shape=24, size=0.6, fill="#006400", color="#006400") +
  geom_text_repel(data = ubic_base, aes(x=X,y=Y,label=Estation), color="#006400", size=3)

# 提取标签的最终坐标（layer_data的索引i根据图层顺序调整，这里i=2是因为geom_text_repel是第二个图层）
label_coords <- layer_data(base_plot, i = 2)[, c("label", "x", "y")]

# 将固定坐标合并到所有月份的站点数据中（Estation作为唯一标识）
ubic_with_fixed_labels <- merge(ubic, label_coords, by.x = "Estation", by.y = "label")

2. 循环绘图时用geom_text替代geom_text_repel，直接使用固定坐标：

for (month in 1:12) {
  # 获取当月数据
  #...
  
  current_plot <- ggplot() +
    # 其他图层（地图底图、预测结果等）
    #...Previous code...
    geom_point(data=ubic_with_fixed_labels, aes(x=X,y=Y), shape=24, size=0.6, fill="#006400", color="#006400") +
    geom_text(data=ubic_with_fixed_labels, aes(x=x, y=y, label=Estation), color="#006400", size=3) +
    #...Subsequent code...
  
  # 保存或展示图像
  ggsave(paste0("month_", month, ".png"), current_plot)
}

内容的提问来源于stack exchange，提问作者Miguel Angel Gonzalez Cueva