НачатьНачать бесплатно

Логарифмическое преобразование

Давайте изучим квартили среднего дохода по почтовым индексам Северной Каролины.

summary(high_inc$mean_income)

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

Разброс значений составляет почти 500 000 долларов! При этом медиана гораздо ближе к минимуму, чем к максимуму, — это указывает на правостороннюю асимметрию. Поскольку переменная среднего дохода содержит исключительно большие значения, непрерывный цветовой градиент оказывается малоинформативным. Логарифмическое преобразование правоскошенной переменной приближает большие значения к среднему и делает распределение более симметричным.

Применение логарифмического преобразования к среднему доходу на карте увеличивает вариативность цветового градиента по почтовым индексам с высоким доходом и позволяет лучше визуализировать распределение среднего дохода по штату.

Это упражнение является частью курса

Интерактивные карты с leaflet в R

Посмотреть курс

Инструкции к упражнению

  • Создайте логарифмическую версию цветовой палитры nc_pal.
  • Примените логарифмическую цветовую палитру к карте leaflet.
  • Закомментируйте слой тайлов карты leaflet, чтобы лучше визуализировать вариативность среднего дохода (добавьте # без пробела перед функцией, которая добавляет тайлы карты).

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

# 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))
Редактировать и запускать код