Hình học simple feature và tidycensus

Phân tích dữ liệu Điều tra Dân số Hoa Kỳ bằng R

Kyle Walker

Instructor

Tham số geometry = TRUE

geometry = TRUE áp dụng cho các đơn vị địa lý sau:
- "state"
- "county"
- "tract"
- "block group"
- "block"
- "zcta" (còn gọi "zip code tabulation area")

Lấy hình học simple feature

library(tidycensus)
library(tidyverse)
library(sf)

cook_value <- get_acs(geography = "tract", state = "IL", 
                      county = "Cook", 
                      variables = "B25077_001", 
                      geometry = TRUE)

Hình học simple feature

head(cook_value, 3)

Bộ sưu tập simple feature với 3 đối tượng và 5 trường
dạng hình học:  MULTIPOLYGON
chiều:         XY
bbox:           xmin: -87.68465 ymin: 42.01232 xmax: -87.66434 ymax: 42.02297
epsg (SRID):    4269
proj4string:    +proj=longlat +datum=NAD83 +no_defs
        GEOID                                       NAME   variable
1 17031010100    Census Tract 101, Cook County, Illinois B25077_001
2 17031010201 Census Tract 102.01, Cook County, Illinois B25077_001
3 17031010202 Census Tract 102.02, Cook County, Illinois B25077_001
  estimate   moe                       geometry
1   230700 62332 MULTIPOLYGON (((-87.6772 42...
2   151100 19099 MULTIPOLYGON (((-87.68465 4...
3   133300 84063 MULTIPOLYGON (((-87.67685 4...

Vẽ hình học tidycensus

plot(cook_value["estimate"])

biểu đồ cơ bản quận Cook

Join dữ liệu tigris và tidycensus

library(tigris)

idaho_income <- get_acs(geography = "school district (unified)", 
                        variables = "B19013_001", 
                        state = "ID")

idaho_school <- school_districts(state = "ID", 
                                 type = "unified", 
                                 class = "sf")

id_school_joined <- left_join(idaho_school, 
                              idaho_income, 
                              by = "GEOID")

Join dữ liệu tigris và tidycensus

plot(id_school_joined["estimate"])

Thu nhập theo hạt trường ở Idaho

Dịch chuyển hình học Alaska và Hawaii

state_value <- get_acs(geography = "state", 
                       variables = "B25077_001", 
                       survey = "acs1", 
                       geometry = TRUE, 
                       shift_geo = TRUE)

plot(state_value["estimate"])

Biểu đồ của shift_geo

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

Phân tích dữ liệu Điều tra Dân số Hoa Kỳ bằng R