Vẽ đa giác

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

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Dữ liệu không gian

Lưu dữ liệu điểm trong data frame

name       lng      lat state sector_label
Colby College -69.66337 44.56421    ME      Private

Lưu dữ liệu đa giác trong data frame

        lng      lat   zip    area mean_income
1 -76.39781 35.79743 27925 0.06686    35733.33
2 -76.35355 35.86130 27925 0.06686    35733.33
3 -76.34927 35.89326 27925 0.06686    35733.33
4 -76.31882 35.90419 27925 0.06686    35733.33
5 -76.33822 35.90419 27925 0.06686    35733.33
...
Bản đồ tương tác với leaflet trong R

SpatialPolygonsDataFrame

Trình xem đối tượng RStudio 1

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

SpatialPolygonsDataFrame

Trình xem đối tượng RStudio 2

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

Làm việc với dữ liệu không gian trong R

glimpse(shp@data)

Quan sát: 808
Biến: 2
$ GEOID10 <dbl> 27925, 28754, 28092, 27217, 28711...
$ ALAND10 <fct> 624688620, 223734670, 317180853, 318965510, 258603117...

shp@data <- shp@data %>% 
  left_join(nc_income, by = c("GEOID10" = "zipcode"))
Bản đồ tương tác với leaflet trong R

Làm việc với dữ liệu không gian trong R

glimpse(shp@data)

Quan sát: 808
Biến: 5
$ GEOID10     <dbl> 27925, 28754, 28092, 27217, 28711,...
$ ALAND10     <fctr> 624688620, 223734670, 317180853, ...
$ returns     <int> 1590, 3230, 15760, 15830, 6070, NA...
$ income      <dbl> 56816000, 147845000, 708297000, 57...
$ mean_income <dbl> 35733.33, 45772.45, 44942.70, 3648...
Bản đồ tương tác với leaflet trong R

SpatialPolygonsDataFrame của chúng ta

# plotting polygon 1
shp@polygons[[1]] %>% 
            leaflet() %>% 
            addPolygons()

Mã zip NC 1

shp@polygons[[1]] %>% 
           leaflet() %>% 
           addTiles() %>% 
           addPolygons()

Mã zip NC 2

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

Cùng luyện tập nào!

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

Preparing Video For Download...