如何在传单多边形地图上显示城镇名称作为标签？

Question

我正在使用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,
                                            )
              )