Не удалось создать карту хороплета - PullRequest
Новая
       13

Не удалось создать карту хороплета

0 голосов
/ 25 марта 2019

Я следовал инструкциям в R Graph Gallery, чтобы создать американскую карту хороплетов для солнечной штрафной зоны, но она построила только один округ.

Я пытался изменить некоторые параметры, но ни один из них не работал.Я также изменил свои корзины, но это не должно помешать отображению каких-либо результатов.

Это мой код, который сгенерировал только одну страну на карте 

# 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 )

Я ожидаю, что он нанесет все графства на карту США, но там был только один.

...