[ggiraphExtra 패키지] ggChoropleth() 단계구분도

#지도 시각화

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

#미국 주별 범죄 데이터 준비하기
str(USArrests)
head(USArrests)


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

#미국 주 지도 데이터 준비하기
library(ggplot2)
states_map <- map_data("state")
1

#단계 구분도 만들기
ggChoropleth(data=crime,
             aes(fill=Murder,
                 map_id=state),
             map=states_map,
             interactive=T) #interactive=T 옵션 마우스 오버하면 값 보임


#대한민국 시도별 인구 단계 구분도 만들기
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)