1
我想在我的多边形周围添加黑色边框。看到下面的图片我到目前为止。R,传单多边形添加黑色边框
我用这个代码。我不知道我可以如何包含一个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 = [email protected]$STADSDEELN)%>%
addProviderTiles("CartoDB.Positron", options= providerTileOptions(opacity = 1))
感谢您的阅读!
的Martijn
有时候可以很简单,非常感谢! @TimSalabim –