我想为 CircleMarkers 添加边框。我使用了以下代码。我找不到任何为笔画添加黑色边框的功能。
pal <- colorNumeric(palette = 'RdYlBu', domain = city_results$ratio)
m <- leaflet() %>%
addTiles() %>%
setView(lng = median(city_results$long),
lat = median(mean(city_results$lat)),
zoom = 8) %>%
addProviderTiles(providers$CartoDB) %>%
addCircleMarkers(data = city_results, lng = ~long, lat = ~lat,
radius = ~(Socioeconomic_status_group),
color = ~pal(ratio),
stroke = TRUE, fillOpacity = 0,
popup = ~as.character(nameH),
label = ~as.character(round(corr_value,2)),
labelOptions = labelOptions(noHide = T, textOnly = TRUE))
如果您的意思是要使用黑色作为描边，则以下代码可以完成此任务。我在演示中使用了传单包中的地震数据。你想使用fillColor填充标记并保存color为笔画指定颜色。
library(leaflet)
pal <- colorNumeric(palette = "Blues", domain = quakes$mag)
leaflet() %>%
addProviderTiles("OpenStreetMap.Mapnik") %>%
addCircleMarkers(data = quakes,
radius = ~mag * 5,
color = "black",
fillColor = ~pal(mag),
stroke = TRUE, fillOpacity = 0.5)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
