ПочатиПочніть безкоштовно

Трішки логування

Подивімося на квартилі середніх доходів за поштовими індексами в Північній Кароліні.

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