CommencezCommencez 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 est de près de 500 000 $. Cependant, la médiane est beaucoup plus près du min que du max, 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 utile. Appliquer le logarithme à une variable asymétrique à droite rapproche les grandes valeurs de la moyenne et produit une distribution plus symétrique.

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

Cette activité fait partie du cours

Cartes interactives avec leaflet en R

Voir le cours

Instructions de l’exercice

  • Créez une version logarithmique de la palette de couleurs nc_pal.
  • Appliquez la palette logarithmique à la carte leaflet.
  • Mettez en commentaire la tuile de carte dans la carte leaflet pour mieux visualiser la variation du revenu moyen (ajoutez # sans espace avant la fonction qui ajoute la tuile de 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