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

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

我的代码可以工作，但不能按照红色、黄色或绿色填充

数据如下：

这是我的密码：

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")

库（“rgdal”）
图书馆（单张）
形状数据%
设置视图（lng=-0.106，纬度=51.5177，缩放=14）%>%
addPolygons（数据=bor，权重=2，颜色='black'，fillOpacity=0.02，fillColor=shapeData$col，
highlightOptions=highlightOptions（颜色=白色），重量=1，
bringToFront=TRUE））%>%
添加标记（lng=-0.106，lat=51.5177，popup=“Hi there”）

输出为：

有人能指出为什么我看不到黄色、绿色或红色，也看不到所有其他颜色吗

---

谢谢

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

您的问题是

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

参数，因为它使颜色太透明而看不见。

我这边有个错误。我在一边玩子集，忘了把它换回来。谢谢你的接球！！没问题，会发生的！