Začněte nyníZačněte zdarma

Trocha logaritmování

Podívejme se na kvartily průměrných příjmů podle PSČ v Severní Karolíně.

summary(high_inc$mean_income)

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

Rozsah je téměř 500 000 dolarů! Medián je ale mnohem blíže minimu než maximu, což naznačuje pravostrannou asymetrii. Protože proměnná průměrného příjmu obsahuje extrémně vysoké hodnoty, spojitý barevný přechod není příliš vypovídající. Logaritmická transformace pravostranně zešikmené proměnné přitáhne velké hodnoty blíže k průměru a výsledné rozdělení je symetričtější.

Logaritmická transformace průměrného příjmu na mapě zvýrazní variabilitu v barevném přechodu napříč PSČ s vysokými příjmy a umožní lepší vizualizaci rozložení průměrného příjmu po celém státě.

Toto cvičení je součástí kurzu

Interaktivní mapy s leaflet v R

Zobrazit kurz

Pokyny k cvičení

  • Vytvoř logaritmickou verzi barevné palety nc_pal.
  • Aplikuj logaritmickou barevnou paletu na mapu v leafletu.
  • Zakomentuj mapovou dlaždici v mapě leaflet, aby bylo snazší vizualizovat variabilitu průměrného příjmu (přidej # bez mezery před funkci, která mapovou dlaždici přidává).

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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))
Upravit a spustit kód