R语言leaflet绘图添加图例并匹配标记颜色问题求助

问题原因 #

1. colorFactor函数使用错误：colorFactor用于将分类变量映射为系列颜色，当你仅传入单值颜色作为调色板、但映射域domain包含多个不同地址时，leaflet会自动生成该颜色的深浅渐变来匹配所有分类值，不会统一使用指定纯色，因此图例颜色和手动指定的标记填充颜色不匹配。
2. 参数设置错误：other_sales图层的填充透明度fillOpacity设置为2，该参数合法取值范围为0-1，超过1的数值会被强制判定为1，属于无效写法。

解决方案 #

你三类房产仅需按类型区分固定颜色，不需要按地址差异化配色，因此无需创建按地址映射的调色板，直接手动定义图例即可，修正后代码如下：

library(leaflet)
library(tidyverse)

leaflet() %>%
  addTiles() %>%
  setView(lng = -122.35784, lat = 47.69636, zoom = 13) %>% 
  # 其他MLS销售标记
  addCircleMarkers(data = sales_mapped2 %>% filter(address != "8743 1st Ave NW"),
                   lng = ~lon, lat = ~lat, popup = ~address, 
                   fillColor = "blue", fillOpacity = 0.75, stroke = FALSE) %>% 
  # 标的房产标记
  addCircleMarkers(data = sales_mapped2 %>% filter(address == "8743 1st Ave NW"),
                   lng = ~lon, lat = ~lat, popup = ~address,
                   fillColor = "orange", fillOpacity = 1, stroke = FALSE) %>% 
  # 其他销售标记
  addCircleMarkers(data = other_sales, 
                   lng = ~lon, lat = ~lat, popup = ~address,
                   fillColor = "red", fillOpacity = 0.75, stroke = FALSE) %>% 
  # 手动定义图例，颜色与标记填充颜色完全对应
  addLegend(position = "bottomright", 
            colors = c("blue", "orange", "red"),
            labels = c("Additional Sales", "Subject", "Other Sales"),
            title = "房产销售类型")

该方案跳过了colorFactor的自动映射逻辑，直接手动指定图例颜色和对应标签，完全避免了颜色偏差问题，代码更简洁。

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