如何在R leaflet中根据数据列条件设置圆形标记的颜色

• R中基础的if(){} else{}结构仅支持单个标量值作为判断条件，当你传入coords$depth（长度为1000的向量）时，R会默认只取第一个元素的判断结果作为全局分支条件，因此所有标记颜色一致。
• 你尝试的lapply写法存在逻辑问题：内层的if判断本身没有完成向量化分支输出，外层套lapply也无法得到和每个点位对应的颜色向量，且addCircleMarkers的color参数直接接受字符向量，不需要用htmltools::HTML包裹。

直接使用R的向量化条件判断函数ifelse()替换原来的标量if语句即可，ifelse()会逐元素判断条件，返回和输入向量长度一致的结果向量，刚好匹配每个点位的颜色需求。

修改后的完整代码如下：

library(shiny)
library(leaflet)
library(dplyr)
library(sf)
library(htmlwidgets)


ui <- fluidPage(
   leafletOutput("map")
)

server <- function(input, output, session) {
   
   coords <- quakes %>%
      sf::st_as_sf(coords = c("long","lat"), crs = 4326)

     output$map <- leaflet::renderLeaflet({
     leaflet::leaflet() %>%         
       leaflet::addTiles() %>%
       leaflet::setView(172.972965,-35.377261, zoom = 4) %>%
       leaflet::addCircleMarkers(
         data = coords,
         stroke = FALSE,
         # 替换为向量化的ifelse函数
         color = ifelse(coords$depth > 300, 'red', 'green'),
         radius = 6)
   })
}

shinyApp(ui, server)

如果后续有更多分类的颜色映射需求，也可以提前给coords数据集新增一列专门存颜色值，再传入color参数，逻辑会更清晰：

coords <- quakes %>%
  sf::st_as_sf(coords = c("long","lat"), crs = 4326) %>%
  mutate(marker_color = ifelse(depth > 300, 'red', 'green'))

# 调用的时候直接用列名即可
addCircleMarkers(
  data = coords,
  stroke = FALSE,
  color = ~marker_color,
  radius = 6
)

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