在R中为分类点的geom_encircle包围边界添加标签的方法

方案1：手动提取轮廓坐标自定义标注位置 #

geom_encircle本质是基于分组数据生成平滑包围轮廓，你可以先提取轮廓坐标，选取合适位置放置标签，以下用鸢尾花数据集做示例：

library(ggplot2)
library(ggalt)
library(dplyr)

data(iris)

# 预计算每个分组的标签放置点，这里选每个分组x轴最大值对应的坐标点，可根据需求调整为y轴最大/最小点
label_pos <- iris %>%
  group_by(Species) %>%
  filter(Sepal.Length == max(Sepal.Length)) %>%
  slice(1) %>%
  ungroup()

# 基础绘图
p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point() +
  geom_encircle(aes(fill = Species), alpha = 0.1, s = 0.5) # s参数控制平滑度，和你原有配置保持一致

# 若需要完全匹配平滑后的轮廓位置，可提取渲染后的轮廓坐标选取标签点
# smooth_encircle_coords <- ggplot_build(p)$data[[2]]
# label_pos <- smooth_encircle_coords %>% group_by(group) %>% filter(x == max(x)) %>% slice(1)

# 添加标签，nudge参数可微调标签和边界的距离
p + geom_text(data = label_pos, aes(label = Species), 
              nudge_x = 0.1, nudge_y = 0.05, show.legend = FALSE)

方案2：搭配ggrepel自动调整标签位置 #

如果不想手动调整位置，可使用geom_text_repel自动避让图形元素，将标签自动放置到靠近包围圈的空白位置：

library(ggrepel)

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point() +
  geom_encircle(aes(fill = Species), alpha = 0.1, s = 0.5) +
  geom_text_repel(data = label_pos, aes(label = Species), 
                  box.padding = 0.5, show.legend = FALSE)

上述两种方案都支持三角（三元）图场景，只需将坐标映射替换为三元图对应的x/y/z映射即可，核心逻辑不变。

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