Bắt đầu ngayBắt đầu miễn phí

Cùng thử Log-transform

Hãy xem các tứ phân vị của thu nhập trung bình theo mã zip ở NC.

summary(high_inc$mean_income)

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

Khoảng giá trị gần $500,000! Tuy nhiên, trung vị gần với min hơn là max, cho thấy phân phối lệch phải. Vì biến thu nhập trung bình chứa một số giá trị cực lớn, thang màu liên tục không hữu ích lắm. Log-transform một biến lệch phải sẽ kéo các giá trị lớn lại gần với giá trị trung bình và tạo ra phân phối đối xứng hơn.

Log-transform thu nhập trung bình trên bản đồ sẽ làm tăng mức độ biến thiên trong thang màu giữa các mã zip thu nhập cao và giúp trực quan hóa tốt hơn phân bố thu nhập trung bình trên toàn bang.

Bài tập này là một phần của khóa học

Bản đồ tương tác với leaflet trong R

Xem khóa học

Hướng dẫn bài tập

  • Tạo phiên bản đã log-transform của bảng màu nc_pal.
  • Áp dụng bảng màu đã log-transform vào bản đồ leaflet.
  • Gỡ lớp bản đồ nền khỏi bản đồ leaflet để dễ quan sát biến thiên của thu nhập trung bình hơn (thêm # không có khoảng trắng ngay trước hàm thêm lớp bản đồ nền).

Bài tập tương tác thực hành trực tiếp

Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.

# 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))
Chỉnh sửa và Chạy Mã