无法生成Choropleth贴图

Question

我按照R Graph Gallery上的说明创建了一个用于日晒区的美国Choropleth地图，但它只绘制了一个县。

我试图更改一些参数，但是没有一个起作用。我也改变了我的垃圾箱，但这并不能阻止它绘制任何结果。

这是我的代码，仅在地图上生成了一个县

# Using leaflet to create interactive choropleth map
library(leaflet)
# Create a color palette with handmade bins.
mybins=c(-Inf,3,6,10,12,Inf)
mypalette = colorBin( palette="YlOrBr", domain=us_spdf_penal_area@data$total_panel_area, na.color="transparent", bins=mybins)

# Prepar the text for the tooltip:
mytext=paste("County: ", us_spdf_penal_area@data$NAME,"<br/>", "Penal Area: ", round(us_spdf_penal_area@data$total_panel_area,2), sep="") %>%lapply(htmltools::HTML)

# Final Map
leaflet(us_spdf_penal_area) %>% 
  addTiles()  %>% 
  setView( lat=10, lng=0 , zoom=2) %>%
  addPolygons( 
    fillColor = ~mypalette(total_panel_area), stroke=FALSE, fillOpacity = 0.9, color="white", weight=0.3,
    highlight = highlightOptions( weight = 5, color = ~colorNumeric("Blues", total_panel_area)(total_panel_area), dashArray = "", fillOpacity = 0.3, bringToFront = TRUE),
    label = mytext,
    labelOptions = labelOptions( style = list("font-weight" = "normal", padding = "3px 8px"), textsize = "13px", direction = "auto")
  ) %>%
  addLegend( pal=mypalette, values=~total_panel_area, opacity=0.9, title = "Penal Area (M) m^2", position = "bottomleft" )

使用相同的设置，此代码比上一个县所绘制的县要多得多。

leaflet(us_spdf_penal_area) %>% 
  addTiles()  %>% 
  setView( lat=10, lng=0 , zoom=2) %>%
  addPolygons( fillColor = ~mypalette(total_panel_area), stroke=FALSE )

我希望它能在美国地图上绘制所有县，但是只有一个图。