如何在Leaflet或mapview地图中添加指南针控件？

你提到的addControlCompass函数确实已从leaflet.extras包中移除，目前可以通过以下两种方式实现指南针/指北箭头功能：

方法一：使用leaflet.extras2包 #

leaflet.extras2是leaflet.extras的衍生维护包，保留了指南针控件的核心功能，操作步骤如下：

1. 安装并加载leaflet.extras2包
2. 调用addCompass()函数添加指南针

示例代码：

library(leaflet)
library(leaflet.extras2)

# 创建基础Leaflet地图
map <- leaflet() %>%
  addTiles() %>%
  setView(lng = -121.2722, lat = 38.1341, zoom = 10)  

# 添加比例尺与指南针
map <- map %>%
  addScaleBar(position = "bottomleft", options = scaleBarOptions(maxWidth = 100, metric = TRUE, imperial = FALSE)) %>%
  addCompass(position = "topright", options = compassOptions())
map

方法二：自定义HTML指北箭头控件 #

如果不想额外安装包，可以通过自定义HTML控件添加简单的指北箭头，灵活调整样式：

示例代码：

library(leaflet)

# 创建基础地图
map <- leaflet() %>%
  addTiles() %>%
  setView(lng = -121.2722, lat = 38.1341, zoom = 10)

# 自定义指北箭头HTML结构
north_arrow <- htmltools::HTML('
  <div style="position: absolute; top: 10px; right: 10px; background: white; padding: 5px; border-radius: 4px; box-shadow: 0 0 5px rgba(0,0,0,0.3);">
    <svg width="30" height="30" viewBox="0 0 24 24">
      <path d="M12 2L4 12h5v8h6v-8h5z" fill="#333"/>
      <text x="12" y="18" text-anchor="middle" font-size="10" fill="#333">N</text>
    </svg>
  </div>
')

# 添加比例尺和自定义指北箭头
map %>%
  addScaleBar(position = "bottomleft", options = scaleBarOptions(maxWidth = 100, metric = TRUE, imperial = FALSE)) %>%
  addControl(north_arrow, position = "topright")

你可以修改HTML中的样式参数（如尺寸、颜色、阴影）或SVG内容，调整指北箭头的外观。

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