R，传单多边形添加黑色边框答案

【问题标题】：R, Leaflet polygons add black bordersR，传单多边形添加黑色边框
【发布时间】：2016-11-10 15:55:35
【问题描述】：

我想在我的多边形周围添加一个黑色边框。请看下面的图片，我到目前为止所得到的。

我使用了这个代码。我不知道如何包含一个 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))

感谢阅读！

马丁

【问题讨论】：

标签： r shiny leaflet border polygon

【解决方案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))

您只需设置stroke = TRUE 和color = "black" 即可获得边框。请注意，我还设置了opacity = 1 以防止半透明边框。

【讨论】：

有时候可以这么简单，非常感谢！！ @TimSalabim