如何在R Shiny的Leaflet地图中偏移重叠的addCircles圆？

Leaflet的addCircles函数本身没有内置的偏移配置项，但可以通过封装偏移计算函数的方式，在不修改原始经纬度的前提下，实现圆的轻微偏移。以下是两种实用方法：

方法1：固定偏移量 #

编写简单的偏移函数，传入原始经纬度和偏移因子（横向/纵向偏移量），自动计算偏移后的坐标。只需调整偏移因子，无需手动修改原始经纬度值。

library(leaflet)

# 定义偏移函数：dx/dy为横向/纵向偏移量（根据地图精度调整，0.001对应约100米左右）
offset_coords <- function(lng, lat, dx = 0.001, dy = 0.001) {
  list(lng = lng + dx, lat = lat + dy)
}

# 使用偏移函数添加圆
leaflet() %>% 
  addTiles() %>%
  addCircles(lng=77.1025, lat=28.7041, 
             popup="Delhi, India", color="blue") %>% 
  addCircles(lng=offset_coords(77.1025, 28.7041)$lng, 
             lat=offset_coords(77.1025, 28.7041)$lat, 
             popup="Delhi, India", color="red")

方法2：按角度均匀偏移（多圆场景） #

如果需要在同一中心点添加多个圆，可通过角度分配偏移方向，让圆均匀分布在原始点周围，避免重叠。

library(leaflet)

# 定义按角度偏移的函数：radius为偏移半径，angle_deg为偏移角度（0-360）
offset_by_angle <- function(lng, lat, radius = 0.001, angle_deg) {
  angle_rad <- angle_deg * pi / 180
  dx <- radius * cos(angle_rad)
  dy <- radius * sin(angle_rad)
  list(lng = lng + dx, lat = lat + dy)
}

# 为不同圆设置不同角度，实现均匀分布
leaflet() %>% 
  addTiles() %>%
  addCircles(lng=77.1025, lat=28.7041, 
             popup="Delhi, India", color="blue") %>% 
  addCircles(lng=offset_by_angle(77.1025, 28.7041, angle_deg=45)$lng, 
             lat=offset_by_angle(77.1025, 28.7041, angle_deg=45)$lat, 
             popup="Delhi, India", color="red") %>%
  addCircles(lng=offset_by_angle(77.1025, 28.7041, angle_deg=135)$lng, 
             lat=offset_by_angle(77.1025, 28.7041, angle_deg=135)$lat, 
             popup="Delhi, India", color="green")

说明 #

• 偏移量（dx/dy或radius）的取值需要根据地图缩放级别和实际精度调整，比如0.001在WGS84坐标系下对应的距离约为100米；
• 封装函数后，原始经纬度可保持不变，仅通过调整函数参数控制偏移效果，符合不修改原始坐标的需求。

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