R 在传单中填写未正确映射的颜色和标签

我第一次使用传单来创建一些研究成果的交互式版本。我有一个问题，填充颜色和标签没有正确映射到shapefile

我肯定我在什么地方出了错，但两个晚上之后，我不知道哪里出了错。下面是一个使用简化数据集的示例。我已经上传了数据

标签不正确： 我认为您的行rownamesatt%unique不正确。如果您查看att，您可以看到行名称与站值不同。

---

在我看来，它应该是：rownamesatt嗯，这是令人烦恼的简单！谢谢你们仔细阅读，因为我对传单不太熟悉，所以我不会发现这些问题

pacman::p_load(tidyverse, data.table, leaflet, sp, maps, leaflet.extras, htmltools, rgdal)


# Load data
data = readRDS("exampleData.RDS")
data %>% str


# Create spatial polygons dataframe
spPolys = data %>%
  group_by(station) %>%
  do(poly=select(., long, lat) %>% Polygon()) %>%
  rowwise() %>%
  do(polys=Polygons(list(.$poly),.$station)) %>%
  {SpatialPolygons(.$polys)}

att = data %>% group_by(station) %>% slice(1) %>% select(station, adminRegion, nestedLevel, river, location, area_km2, type) %>% as.data.frame
rownames(att) <- data$station %>% unique

spDF = SpatialPolygonsDataFrame(spPolys, data = att)
spDF@data


# Mapping
n = length(unique(spDF$adminRegion))
factorPal <- colorFactor(viridis::viridis(n), spDF$adminRegion)

spDF %>%
  leaflet() %>%

  addProviderTiles(provider = providers$Esri.WorldGrayCanvas) %>%

  addPolygons(stroke = FALSE, smoothFactor = 0.2, 
              fillOpacity = 1.0, fillColor = ~factorPal(adminRegion), 
              label = ~adminRegion) %>%

  addLegend(pal = factorPal, values = ~adminRegion, 
            opacity = 1.0, title = NULL,
            position = "bottomright")