如何让R语言tmap包的tm_text函数文本始终显示在多边形内部？

核心方案：使用st_point_on_surface生成可靠内部定位点 #

对于阿拉巴马州第6选区这类形状特殊的多边形，默认质心可能落在外部，用sf包的st_point_on_surface函数可确保生成的点严格处于多边形内部，以此作为文本锚点是最可靠的方式，适配批量绘制需求。

步骤1：生成内部定位点 #

假设你的空间数据是sf格式对象（比如alabama_districts），执行以下代码生成每个多边形的内部点并提取坐标：

library(tmap)
library(sf)

# 为每个多边形生成内部锚点
alabama_districts$label_anchor <- st_point_on_surface(alabama_districts)
# 将锚点坐标提取到数据框，用于tm_text定位
alabama_districts <- cbind(alabama_districts, st_coordinates(alabama_districts$label_anchor))

步骤2：基于内部点绘制文本 #

在tm_text中指定x和y参数为提取出的坐标列（默认是X和Y），确保文本锚定在内部点上：

tm_shape(alabama_districts) +
  tm_polygons() +
  tm_text(
    text = "district_number",  # 替换为你的标签列名
    x = "X",
    y = "Y",
    just = "center"  # 文本相对于锚点居中对齐
  )

步骤3：批量处理封装 #

将逻辑封装为函数，方便批量处理多个地图数据集：

plot_labeled_map <- function(sf_data, label_col) {
  # 生成内部锚点
  sf_data$label_anchor <- st_point_on_surface(sf_data)
  sf_data <- cbind(sf_data, st_coordinates(sf_data$label_anchor))
  # 绘制地图
  tm_shape(sf_data) +
    tm_polygons() +
    tm_text(label_col, x = "X", y = "Y", just = "center")
}

# 示例：批量处理多个空间数据集
# 假设list_of_maps是包含多个sf对象的列表
map_outputs <- lapply(list_of_maps, plot_labeled_map, label_col = "district_id")

补充优化技巧 #

• 确保tmap和sf包为最新版本：旧版本可能存在定位逻辑bug，执行update.packages(c("tmap", "sf"))更新。
• 调整文本大小：若文本过大溢出，可通过size参数缩小，比如size = 0.8。
• 备选质心方案：对部分凹多边形，st_centroid(sf_data, of_largest_polygon = TRUE)也能生成更可靠的质心，但st_point_on_surface兼容性更强。

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