R 单张热图

我从奥斯汀政府那里得到了geojson，上面有多边形的地区和名称

gjson_austin <- geojson_read('Neighborhood Planning Areas.geojson', 
method = "local", what = "sp")
gjson_austin@proj4string<-CRS("+proj=longlat +datum=WGS84")
gjson_austin<-as(gjson_austin, 'SpatialPolygons')
place_name_austin = fread("ci6h-vmgm.csv")

按id分组的多边形。每个多边形在列中都有一个名称

我想用传单画这个多边形

leaflet() %>% addTiles()%>%
addPolygons(data = objects_austin, lng = ~long, lat = ~lat)

但我得不到我需要的。

如果我使用，我可以画多边形

leaflet() %>% addTiles()%>%
addPolygons(data=gjson_austin)

但我需要json中的值来进行计算。 请帮我解决这个问题

之后，我计算所有按多边形分组的特殊值。我想画一个正确的多边形由这个值像热图

leaflet() %>% addTiles()%>%
addPolygons(data = objects_austin, lng = ~long, lat = ~lat)

leaflet() %>% addTiles()%>%
addPolygons(data=gjson_austin)