[英]R, Leaflet polygons add black borders
I would like to add a black border around my polygons. 我想在我的多边形周围添加黑色边框。 See the image below what I have got so far.
看到下图,到目前为止我得到了什么。
I used this code. 我用过这段代码。 I dont know how I could include a zip file so its reproducible.
我不知道如何包含一个zip文件,所以它可以重现。
library("rgdal")
library("leaflet")
amsterdam.districts <- shapefile("~/R/Shiny/Shapefiles/sd2010zw_region.shp")
amsterdam.districts <- spTransform(amsterdam.districts, CRS("+init=epsg:4326"))
amsterdam.districts$STADSDEELN<- c("Centrum","Westpoort","West","Nieuw West","Zuid","Oost","Noord","Zuidoost")
amsterdam.districts$SDNUMMER=as.factor(amsterdam.districts$SDNUMMER)
factpal=colorFactor(brewer.pal(n = 11, name ="Spectral") , amsterdam.districts$SDNUMMER)
leaflet() %>%
addPolygons(
data =amsterdam.districts,
stroke = FALSE, fillOpacity = 0.5, smoothFactor = 0.5,
color = "grey",
fillColor = ~factpal(SDNUMMER),
layerId = amsterdam.districts@data$STADSDEELN)%>%
addProviderTiles("CartoDB.Positron", options= providerTileOptions(opacity = 1))
Thanks for reading! 谢谢阅读!
Martijn 马亭
Here's a reproducible example: 这是一个可重复的例子:
library(mapview)
library(RColorBrewer)
factpal <- colorFactor(brewer.pal(n = 11, name ="Spectral") , gadmCHE$NAME_1)
leaflet() %>%
addPolygons(
data = gadmCHE,
stroke = TRUE, fillOpacity = 0.5, smoothFactor = 0.5,
color = "black", opacity = 1,
fillColor = ~factpal(gadmCHE$NAME_1)) %>%
addProviderTiles("CartoDB.Positron", options = providerTileOptions(opacity = 1))
You simply need to set stroke = TRUE
and color = "black"
to get the borders. 您只需设置
stroke = TRUE
和color = "black"
即可获得边框。 Note that I also set opacity = 1
to prevent semitransparent borders. 请注意,我还设置了
opacity = 1
以防止半透明边框。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.