Как отобразить названия городов / городов в качестве метки на листовой карте полигонов? - PullRequest
Новая
       61

Как отобразить названия городов / городов в качестве метки на листовой карте полигонов?

0 голосов
/ 24 августа 2018

Я использую функцию tracts() из пакета tigris, чтобы вернуть SpatialPolygonDataFrame, содержащий значения GEOID и NAME Бюро переписи для конкретного штата и округов.Следующий код ниже создает простую карту листовок с полигонами для каждого участка и всплывающей меткой, когда вы наводите указатель мыши на каждый полигон.Как бы вы отредактировали приведенный ниже код для отображения названия города / города при наведении указателя мыши на каждый многоугольник?Этот код возвращает код числового имени, например 8132, а не фактическое имя. 

library(tigris)
library(leaflet)

# spdf <- tracts(state = '04', county = '013', cb = FALSE)
# saveRDS(spdf, file = "data/spdf.rds")
# spdf <- readRDS("data/spdf.rds")
spdf %>% leaflet() %>% addTiles() %>% 
  addPolygons(weight = 1, label = spdf@data$NAME,
              highlight = highlightOptions(weight = 3,
                                           color = "red",
                                           bringToFront = TRUE,
                                            )
              )
...