我想在我的多边形周围添加黑色边框。请参阅下图,我到目前为止所得到的内容。
我使用了这段代码。我不知道如何包含 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))
感谢您的阅读!
马丁
最佳答案
这是一个可重现的示例:
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))
您只需设置 lines = TRUE
和 color = "black"
即可获取边框。请注意,我还设置了 opacity = 1
以防止出现半透明边框。
关于R、Leaflet多边形添加黑色边框,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38260574/