我正在用传单制作一张Map，上面显示了2000年的街区，以及2000年和2010年的大片。现在，我无法让图例正确工作：它显示彩色框而不是彩色线：

az_2000 <- tracts(state = "Arizona", year = 2000) %>% 
  select(c(CTIDFP00)) %>% rename("geoid" = "CTIDFP00")
az_2000 <- st_transform(az_2000, 4326)

az_bg2000 <- blocks(state = "Arizona", year = 2000) %>% 
  select(c(BLKIDFP00)) %>% rename("geoid" = "BLKIDFP00")
az_bg2000 <- st_transform(az_bg2000)

az_2010 <- tracts(state = "Arizona", year = 2010) %>% 
  select(c(GEOID10)) %>% rename("geoid" = "GEOID10")
az_2010 <- st_transform(az_2010, 4326)
    

# Create a map with the three layers
map <- leaflet() %>%
  addTiles() %>%
  addPolygons(data = az_bg2000,
              fill = FALSE,
              color = "#000000",
              dashArray = "2",
              weight = 0.5,
              label = "Blocks 2000") %>%
  addPolygons(data = az_2000, 
              fill = FALSE, 
              color = "#0000FF", 
              weight = 3,
              label = "Tracts 2000") %>%
  addPolygons(data = az_2010, 
              fill = FALSE, 
              color = "#FF0000",
              dashArray = "5,5",
              weight = 3,
              label = "Tracts 2010") %>%
  addLegend(position = "bottomright", 
            colors = c("#000000", "#0000FF", "#FF0000"), 
            labels = c("Blocks 2000", "Tracts 2000", "Tracts 2010"), 
            title = "Legend")

我该怎么解决这个问题？