如何让ggrepel::geom_label_repel适配sf对象？现有实现繁琐易出错

问题 #

想要实现适配sf对象的ggrepel::geom_label_repel功能，需要支持传入aes参数及...参数，但当前实现过于繁琐且易出错，原代码如下：

geom_sf_label_repel <- function(.data,
                                label,
                                alpha,
                                angle,
                                color,
                                family,
                                fontface,
                                group,
                                hjust,
                                lineheight,
                                size,
                                vjust, sf_column_name = "geometry", ...) {
  geometry <- pull(.data, sf_column_name)
  coordinates <- sf::st_coordinates(geometry)
  colnames(coordinates) <- c('x', 'y')
  coords_data <- dplyr::bind_cols(.data, coordinates)
  ggrepel::geom_label_repel(aes(x, y,
                                label = {{label}},
                                alpha = {{alpha}},
                                angle = {{angle}},
                                color = {{color}},
                                family = {{family}},
                                fontface = {{fontface}},
                                group = {{group}},
                                hjust = {{hjust}},
                                lineheight = {{lineheight}},
                                size = {{size}},
                                vjust = {{vjust}}
  ),
  ...,
  data = coords_data)
}

优化实现方案 #

可以利用ggplot2的内置工具简化实现，无需手动枚举所有aes参数，让函数更灵活且符合ggplot2的使用习惯：

geom_sf_label_repel <- function(mapping = NULL, data = NULL, sf_column_name = "geometry", ...) {
  # 将sf对象转换为包含x/y坐标的数据框
  fortified_data <- ggplot2::fortify(data, sf_column_name = sf_column_name)
  # 自动添加x/y的映射，同时保留用户传入的其他aes映射
  updated_mapping <- ggplot2::aes_add(mapping, ggplot2::aes(x = .data$x, y = .data$y))
  # 调用ggrepel的geom_label_repel，传递处理后的映射和数据
  ggrepel::geom_label_repel(mapping = updated_mapping, data = fortified_data, ...)
}

优势说明 #

• 灵活性高：无需手动维护所有可能的aes参数（如fill、linewidth等新增参数），用户可直接像使用ggrepel::geom_label_repel一样传入任意aes映射。
• 代码简洁：借助ggplot2::fortify自动处理sf对象的坐标提取，避免手动调用st_coordinates和数据拼接的繁琐操作。
• 符合ggplot2语法：函数参数结构与原生geom函数一致，降低学习成本，使用更自然。

使用示例 #

library(sf)
library(ggplot2)
library(ggrepel)

# 创建示例sf数据
nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"))

# 使用自定义的geom_sf_label_repel
ggplot(nc) +
  geom_sf() +
  geom_sf_label_repel(aes(label = NAME, color = AREA), size = 3)

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