使用传单和R为圆形标记添加边框

我想给圆形标记添加边框。我使用了以下代码。我找不到任何函数来为笔划添加黑色边框

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)) 

pal%
setView（液化天然气=中值（城市结果$long），
lat=中位数（平均值（城市大学结果$lat）），
缩放=8）%>%
addProviderTiles（提供程序$CartoDB）%>%
addCircleMarkers（数据=城市结果，液化天然气=~long，纬度=~lat，
半径=~（社会经济地位群体），
颜色=~pal（比率），
笔划=真，填充不透明度=0，
popup=~as.character（nameH），
label=~as.character（舍入值，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)

图书馆（传单）
pal%
addProviderTiles（“OpenStreetMap.Mapnik”）%>%
addCircleMarkers（数据=地震，
半径=~mag*5，
color=“黑色”，
fillColor=~pal（mag），
笔划=真，填充不透明度=0.5）

---

欢迎来到堆栈溢出。你能同时提供你的数据吗？否则没有人能看到你现在的地图并帮你。谢谢你的回答，我不喜欢使用fillColor，只想为圆圈标记添加边框，可以吗？@user6041789如果你只想要黑色笔划，可以将fillOpacity设置为零<代码>填充不透明度=0而不是0.5。然后，你将看不到任何填充颜色。我有很多圆圈，因此我希望有一个带有彩色笔划的空（无填充），问题是我的托盘中有一些颜色非常接近背景色，如上面的示例中，我有一些浅蓝色笔划，为了让用户知道有浅蓝色的笔划，我想给笔划加上黑色边框，这样用户就可以意识到该区域有笔划。@user6041789我认为这在传单中是不可能的。您可以控制笔划和填充颜色，但不能控制边界。@user6041789我现在唯一能想到的是您想要更改现有的地图。如果你改变你的背景，你可能不必挣扎。