Comece agoraComece grátis

Vamos fazer alguns logs

Vamos analisar os quartis das rendas médias por CEP na Carolina do Norte.

summary(high_inc$mean_income)

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

A amplitude é de quase US$ 500.000! No entanto, a mediana está muito mais próxima do mínimo do que do máximo, indicando uma assimetria à direita. Como a variável de renda média contém valores excepcionalmente altos, o gradiente contínuo de cores não é muito útil. Aplicar log em uma variável com assimetria à direita aproxima os valores altos da média e gera uma distribuição mais simétrica.

Fazer a transformação logarítmica da renda média no nosso mapa aumenta a variação no gradiente de cores entre os CEPs de alta renda e permite visualizar melhor a distribuição da renda média no estado.

Este exercicio faz parte do curso

Mapas Interativos com leaflet em R

Ver curso

Instruções do exercicio

  • Crie uma versão com log da paleta de cores nc_pal.
  • Aplique a paleta com log ao mapa do leaflet.
  • Comente o tile do mapa no leaflet para facilitar a visualização da variação da renda média (adicione # sem espaço antes da função que adiciona o tile do mapa).

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# 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))
Editar e Executar Código