CommencerCommencez gratuitement

Passons au logarithme

Examinons les quartiles des revenus moyens par code postal en Caroline du Nord.

summary(high_inc$mean_income)

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

L'étendue approche 500 000 $ ! Cependant, la médiane est bien plus proche du minimum que du maximum, ce qui indique une asymétrie à droite. Comme la variable de revenu moyen contient des valeurs exceptionnellement élevées, le dégradé de couleurs continu n'est pas très informatif. Appliquer un logarithme à une variable asymétrique à droite rapproche les grandes valeurs de la moyenne et produit une distribution plus symétrique.

Transformer en logarithme le revenu moyen sur notre carte accroît la variation du dégradé de couleurs parmi les codes postaux à hauts revenus et permet une meilleure visualisation de la distribution du revenu moyen à l'échelle de l'État.

Cet exercice fait partie du cours

<cours>Cartes interactives avec leaflet en R</cours>
Voir le cours

Instructions de l’exercice

  • Créez une version en logarithme de la palette de couleurs nc_pal.
  • Appliquez la palette en logarithme à la carte leaflet.
  • Mettez en commentaire la tuile de fond de la carte dans leaflet pour mieux visualiser la variation du revenu moyen (ajoutez # sans espace avant la fonction qui ajoute la tuile de la carte).

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# 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))
Modifier et exécuter le code