Kom igångKom igång gratis

Dags att logaritmtransformera

Vi tittar på kvartilerna för medelinkomsten per postnummer i North Carolina.

summary(high_inc$mean_income)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  55947   62380   71655   83682   90695  550849

Spannet är nästan 500 000 dollar! Medianen ligger dock mycket närmare minimivärdet än maxvärdet, vilket tyder på en högerskev fördelning. Eftersom medelinkomstvariabeln innehåller extremt höga värden ger den kontinuerliga färggradienten inte så mycket information. Att logaritmtransformera en högerskev variabel drar de höga värdena närmare medelvärdet och ger en mer symmetrisk fördelning.

När vi logaritmtransformerar medelinkomsten på kartan ökar variationen i färggradienten för postnumren med hög inkomst, vilket gör det lättare att visualisera hur medelinkomsten är fördelad över delstaten.

Den här övningen är en del av kursen

Interaktiva kartor med leaflet i R

Visa kurs

Övningsinstruktioner

  • Skapa en logaritmtransformerad version av färgpaletten nc_pal.
  • Applicera den logaritmtransformerade färgpaletten på leaflet-kartan.
  • Kommentera bort kartlagret från leaflet-kartan för att lättare visualisera variationen i medelinkomst (lägg till # utan mellanslag före den funktion som lägger till kartlagret).

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# Use the log function to create a new version of nc_pal
nc_pal <- colorNumeric("YlGn", domain = ___(high_inc@data$mean_income))

# comment out the map tile
high_inc %>%
  leaflet() %>%
  ___addProviderTiles("CartoDB") %>%
  # apply the new nc_pal to the map
  addPolygons(weight = 1, color = ~nc_pal(___(mean_income)), fillOpacity = 1,
              label = ~paste0("Mean Income: ", dollar(mean_income)),
              highlightOptions = highlightOptions(weight = 5, color = "white", bringToFront = TRUE))
Redigera och kör kod