ÎncepețiÎncepe gratuit

Să aplicăm transformarea logaritmică

Să analizăm cuartilele veniturilor medii pe coduri poștale din NC.

summary(high_inc$mean_income)

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

Intervalul este de aproape 500.000 de dolari! Totuși, mediana este mult mai apropiată de valoarea minimă decât de cea maximă, ceea ce indică o asimetrie la dreapta. Deoarece variabila venitului mediu conține valori excepțional de mari, gradientul continuu de culori nu este foarte util. Transformarea logaritmică a unei variabile asimetrice la dreapta trage valorile mari spre medie și produce o distribuție mai simetrică.

Aplicând transformarea logaritmică asupra venitului mediu în hartă, crești variația gradientului de culori în rândul codurilor poștale cu venituri ridicate și obții o vizualizare mai clară a distribuției venitului mediu în întregul stat.

Acest exercițiu face parte din cursul

Hărți interactive cu leaflet în R

Vezi cursul

Instrucțiuni pentru exercițiu

  • Creează o versiune logaritmică a paletei de culori nc_pal.
  • Aplică paleta de culori logaritmică pe harta leaflet.
  • Comentează stratul de tiles din harta leaflet pentru a vizualiza mai ușor variația venitului mediu (adaugă # fără spațiu înaintea funcției care adaugă stratul de tiles).

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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))
Editează și rulează codul