R语言base绘图如何自动在空白区域放置文本避免遮挡数据点

优先使用纯base R实现，无需安装第三方包，不需要逐张手动指定文本坐标，核心逻辑是自动识别绘图区内数据点最少的边缘空白位置放置标注，可一次封装重复调用。

可复用自动定位函数 #

函数会自动抓取当前绘图的坐标轴范围、数据点分布，优先在4个边缘区域筛选无/极少数据点的位置，自动调整文本对齐方式避免超出绘图边界：

# 初始化环境存储最近一次绘图的点数据
last_plot <- new.env()

# 钩子自动记录base plot的散点坐标
trace(
  plot.default,
  exit = quote({
    pf <- parent.frame()
    last_plot$.points <- list(
      x = get("x", envir = pf),
      y = get("y", envir = pf)
    )
  }),
  print = FALSE
)

# 自动放置文本标注函数
auto_text <- function(label, cex = 0.7, edge_margin = 0.05) {
  # 获取当前绘图轴范围
  usr <- par("usr")
  x_rng <- c(usr[1], usr[2])
  y_rng <- c(usr[3], usr[4])
  x_span <- diff(x_rng)
  y_span <- diff(y_rng)
  
  x <- last_plot$.points$x
  y <- last_plot$.points$y
  
  # 枚举4个边角候选区域，统计每个区域内的数据点数量
  candidates <- list(
    # 左上角
    list(
      x = x_rng[1] + edge_margin * x_span,
      y = y_rng[2] - edge_margin * y_span,
      adj = c(0, 1),
      count = sum(x < x_rng[1] + 0.2*x_span & y > y_rng[2] - 0.2*y_span)
    ),
    # 右上角
    list(
      x = x_rng[2] - edge_margin * x_span,
      y = y_rng[2] - edge_margin * y_span,
      adj = c(1, 1),
      count = sum(x > x_rng[2] - 0.2*x_span & y > y_rng[2] - 0.2*y_span)
    ),
    # 左下角
    list(
      x = x_rng[1] + edge_margin * x_span,
      y = y_rng[1] + edge_margin * y_span,
      adj = c(0, 0),
      count = sum(x < x_rng[1] + 0.2*x_span & y < y_rng[1] + 0.2*y_span)
    ),
    # 右下角
    list(
      x = x_rng[2] - edge_margin * x_span,
      y = y_rng[1] + edge_margin * y_span,
      adj = c(1, 0),
      count = sum(x > x_rng[2] - 0.2*x_span & y < y_rng[1] + 0.2*y_span)
    )
  )
  
  # 选点最少的候选位置放文本
  best <- candidates[[which.min(sapply(candidates, `[[`, "count"))]]
  text(best$x, best$y, labels = label, cex = cex, adj = best$adj)
}

使用方法 #

和手动指定坐标的写法几乎一致，不需要手动输入坐标参数，每画完一张图直接调用auto_text()即可：

par(mfrow = c(1, 2))
plot(cars)
auto_text("some text here.")
plot(iris[ , 3:4])
auto_text("some text here.")

效果说明 #

• 完全基于base R原生工具链，无额外依赖
• 默认优先选择边角空白区，不会把文本放在图中心遮挡核心数据
• 自动适配任意坐标轴数值范围，常规散点图场景下和手动挑选的空白位置效果一致
• 如果需要更精细的定位，可以把候选区域从4个边角扩展为更细的边缘网格，统计每个网格的数据点密度选最优位置即可。

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