R 지도시각화

# 단계 구분도
# 지역별 통계치를 색깔의 차이로 표현한 지도
# 인구나 소득 같은 특성이 지역별로 얼마나 다른지 쉽게 이해할 수 있음

install.packages("ggiraphExtra")
library(ggiraphExtra)

str(USArrests)
head(USArrests)

library(tibble)

# 행 이름을 state 변수로 바꿔 데이터 프레임 생성
crime <- rownames_to_column(USArrests, var = "state")

# 지도 데이터와 동일하게 맞추기 위해 state의 값을 소문자 변경
crime$state <- tolower(crime$state)

str(crime)

library(ggplot2)
states_map <- map_data("state")

str(states_map)

ggChoropleth(data = crime, # 지도에 표현할 데이터 aes(fill = Murder, # 색깔로 표현할 변수 map_id = state), # 지역 기준 변수 map = states_map, # 지도 데이터 interactive = T) # 인터랙티브

 

미국 주별 살인 빈도

 

# 단계 구분도
# 지역별 통계치를 색깔의 차이로 표현한 지도
# 인구나 소득 같은 특성이 지역별로 얼마나 다른지 쉽게 이해할 수 있음

install.packages("ggiraphExtra")
library(ggiraphExtra)

str(USArrests)
head(USArrests)

library(tibble)

# 행 이름을 state 변수로 바꿔 데이터 프레임 생성
crime <- rownames_to_column(USArrests, var = "state")

# 지도 데이터와 동일하게 맞추기 위해 state의 값을 소문자 변경
crime$state <- tolower(crime$state)

str(crime)

library(ggplot2)
states_map <- map_data("state")

str(states_map)

ggChoropleth(data = crime,
             aes(fill= Murder,
                 map_id = state),
             map = states_map)


ggChoropleth(data = crime, # 지도에 표현할 데이터
             aes(fill = Murder, # 색깔로 표현할 변수
                 map_id = state), # 지역 기준 변수
             map = states_map, # 지도 데이터
             interactive = T) # 인터랙티


#대한민국 시도별 인구, 결핵 환자 수 단계 구분도 만들기
install.packages("stringi")
install.packages("devtools")
devtools::install_github("cardiomoon/kormaps2014")
library(kormaps2014)

# 대한민국 시도별 인구 데이터 준비하기
str(changeCode(korpop1))

library(dplyr)

korpop1 <- rename(korpop1,
                  pop = 총인구_명,
                  name = 행정구역별_읍면동)
str(changeCode(kormap1))

ggChoropleth(data = korpop1, # 지도에 표현할 데이터
             aes(fill = pop, # 색깔로 표현할 변수
                 map_id = code, # 지역 기준 변수
                 tooltip = name), # 지도 위에 표시할 지역명
             map = kormap1, # 지도 데이터
             interactive = T) # 인터랙티브