R，传单，用颜色填充多边形

Question

我有伦敦的形状数据，想将不同的区域涂成红色、黄色和绿色。

我的代码有效，但没有按照红黄绿填充。

数据为：https://data.london.gov.uk/dataset/statistical-gis-boundary-files-london

这是我的代码：

library("rgdal")
library(leaflet)
shapeData <- readOGR('statistical-gis-boundaries-london/ESRI/LSOA_2004_London_Low_Resolution.shp')
shapeData <- spTransform(shapeData, CRS("+proj=longlat +ellps=GRS80"))
LANAME='Camden'
shapeData$col=sample(c('red','yellow','green'),nrow(shapeData),1)
leaflet()  %>% addTiles() %>% 
  setView(lng = -0.106, lat=51.5177,zoom=14) %>% 
  addPolygons(data=bor,weight=2,col = 'black',fillOpacity = 0.02,fillColor = shapeData$col,
              highlightOptions = highlightOptions(color='white',weight=1,
                                                  bringToFront = TRUE)) %>% 
  addMarkers(lng = -0.106,lat=51.5177,popup="Hi there")

输出是：

谁能指出我为什么不只看到黄色、绿色或红色，也看到所有这些其他颜色。

谢谢

Answer 1

我只是碰巧已经下载了那个文件..

您的问题是 data 参数与您的 fillColor 参数不一致。相反，您应该运行：

leaflet()  %>% addTiles() %>% 
  setView(lng = -0.106, lat=51.5177,zoom=14) %>% 
  addPolygons(data=shapeData,weight=2,col = 'black',fillColor = shapeData$col,
              highlightOptions = highlightOptions(color='white',weight=1,
                                                  bringToFront = TRUE)) %>% 
  addMarkers(lng = -0.106,lat=51.5177,popup="Hi there")

我还删除了 fillOpacity = 0.02 参数，因为它使颜色过于透明而无法看到。