R语言Leaflet中addAwesomeMarkers无法识别矢量坐标的解决问询

嘿，我来帮你搞定这个Leaflet彩色标记的问题！

问题根源 #

你遇到的报错主要有两个原因：

1. addAwesomeMarkers 默认需要单独的数值型经度/纬度参数，但你直接传入了sf对象的geometry列（这是个sfc空间对象，不是纯数值）；
2. 代码里定义了Status_Icons图标对象，但调用时写错成了icons，变量名不匹配。

两种简便解决方案 #

方案1：从sf对象提取经纬度列（直观易懂）

先把sf的几何对象拆成单独的lng和lat数值列，再传给标记函数：

# 第一步：从sf geometry中提取经纬度，新增到数据集
Locations <- Locations %>%
  mutate(
    lng = st_coordinates(.)[, 1],  # 提取经度
    lat = st_coordinates(.)[, 2]   # 提取纬度
  )

# 简化颜色映射函数（用dplyr的case_when比sapply更清晰）
Color_status <- function(status) {
  dplyr::case_when(
    status == 0 ~ "green",
    status == 1 ~ "red",
    TRUE ~ "orange"
  )
}

# 创建图标对象（注意变量名要统一）
Status_Icons <- awesomeIcons(
  icon = 'circle', 
  iconColor = 'black', 
  library = 'ion', 
  markerColor = Color_status(Locations$Status)
)

# 绘制地图，明确指定lng和lat参数
leaflet(Locations) %>% 
  addTiles() %>% 
  addAwesomeMarkers(
    lng = ~lng, 
    lat = ~lat, 
    icon = Status_Icons, 
    label = ~as.character(Name)
  )

方案2：直接利用Leaflet对sf的原生支持（更简洁）

Leaflet包本身支持直接读取sf对象的geometry，不需要手动提取经纬度，只要你不额外指定坐标参数：

# 同样先定义颜色映射函数
Color_status <- function(status) {
  dplyr::case_when(
    status == 0 ~ "green",
    status == 1 ~ "red",
    TRUE ~ "orange"
  )
}

Status_Icons <- awesomeIcons(
  icon = 'circle', 
  iconColor = 'black', 
  library = 'ion', 
  markerColor = Color_status(Locations$Status)
)

# 直接传入sf对象，函数会自动识别geometry列
leaflet(Locations) %>% 
  addTiles() %>% 
  addAwesomeMarkers(
    icon = Status_Icons, 
    label = ~as.character(Name)
  )

额外小提示 #

如果你不想额外加载dplyr，也可以把颜色函数简化成基础R版本：

Color_status <- function(status) {
  ifelse(status == 0, "green", ifelse(status == 1, "red", "orange"))
}

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