Mulai sekarangMulai gratis

Mari Melakukan Logging

Mari melihat kuartil pendapatan rata-rata per kode pos di NC.

summary(high_inc$mean_income)

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

Rentangnya hampir $500.000! Namun, nilai median jauh lebih dekat ke nilai minimum daripada maksimum, yang mengindikasikan kemencengan ke kanan. Karena variabel pendapatan rata-rata memiliki nilai yang sangat besar, gradasi warna kontinu menjadi kurang membantu. Menerapkan transformasi log pada variabel yang menceng ke kanan akan menarik nilai-nilai besar agar lebih dekat ke rata-rata dan menghasilkan sebaran yang lebih simetris.

Menerapkan transformasi log pada pendapatan rata-rata di peta kita meningkatkan variasi pada gradasi warna di seluruh kode pos berpenghasilan tinggi dan memungkinkan visualisasi yang lebih baik atas distribusi pendapatan rata-rata di seluruh negara bagian.

Latihan ini merupakan bagian dari kursus

Peta Interaktif dengan leaflet di R

Lihat Kursus

Instruksi latihan

  • Buat versi palet warna nc_pal yang sudah dilog.
  • Terapkan palet warna yang sudah dilog pada peta leaflet.
  • Nonaktifkan ubin peta dari peta leaflet agar lebih mudah memvisualisasikan variasi pendapatan rata-rata (tambahkan # tanpa spasi sebelum fungsi yang menambahkan ubin peta).

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# 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))
Edit dan Jalankan Kode