Я пытаюсь создать интерактивную карту для моего местоположения, с живым числом активных случаев короны. У меня есть набор данных, который содержит подробную информацию о городах и число активных случаев. И я нашел файл JSON для моего местоположения, в котором есть те же города, что и в моем фрейме данных. Теперь я хотел бы добавить счетчик активных случаев в этом файле JSON на карту креатива, используя ggplot. но
districts <- geojsonio::geojson_read("tamilnadu.json", what = "sp")
class(districts)
m <- leaflet(districts) %>%
setView(-96, 37.8, 4) %>%
addProviderTiles("MapBox", options = providerTileOptions(
id = "mapbox.light",
accessToken = Sys.getenv('MAPBOX_ACCESS_TOKEN')))
m %>% addPolygons()
`````````````````````````````````````````````````````````````````````
But when performing the merge, JSON becomes a dataframe.
so when I try to create a map, this error pops up.
```````````````````````````````````````````````````````````````````````
bins <- c(0, 10, 20, 50, 100, 200, 500, 1000, Inf)
pal <- colorBin("YlOrRd", domain = districts$n, bins = bins)
m %>% addPolygons(fillColor = ~pal(n))
``````````````````````````````````````````````````````````````````````
> m %>% addPolygons(fillColor = ~pal(n))
Error in cut.default(x, binsToUse, labels = FALSE, include.lowest = TRUE, :
'x' must be numeric
In addition: Warning message:
In is.na(x) : is.na() applied to non-(list or vector) of type 'closure'
``````````````````````````````````````````````````````````````````````````
It would be really greatful, if someone help me out.