Re: 오늘의 마지막 문제. 오늘 그린 그래프들을 이용해서 SQL 포트폴리오 데이터를 이용해서...

[19기_박찬혁]

질문 ) 서울, 경기, 인천 시도시를 수도권으로 분류하고, 그 외 지역은 비수도권으로 분류하는데,

          수도권과 비수도권의 최근 3년간 인구수를  라인그래프 로 나타내시오!

# plot 패키지 로드 
library(plotly)

# 1. 데이터 로드
pop <- read.csv('지역인구.csv', header = T, fileEncoding = 'euc-kr')

# 2. 연도 컬럼 데이터 연도만 나타내도록 데이터 업데이트
pop$기준연월 <- format(as.Date(pop$기준연월),'%Y')

# 3. 연도별, 권역별 인원수 group by sum 처리하여 pop1 할당
pop1 <- aggregate(계 ~ 기준연월+area, pop, sum)

# 4. pop1 수도권, 비수도권 파생 데이터 추가 및 데이터 할당
pop1$area <- ifelse(pop1$시도명 %in% c('서울특별시','경기도','인천광역시'),'수도권','비수도권')

# 5. 컬럼 이름 영문으로 변경
colnames(pop1) <- c('year','area','total')

# 6. 라인 그래프 생성
fig <- plot_ly(pop1, x= ~year, y = ~total,
                color = ~area, colors = c('red','blue'),
                marker = list(color = 'black'),
                type = 'scatter', mode = 'lines+markers')

# 7. 그래프 타이틀명 추               
fig <- fig %>% layout(title = '2022-2024 수도권 비수도권 인구 추이 현황')

# 8. 그래프 출력
fig

---

**해석(인사이트)**

서울,경기,인천(수도권)
외 지역은 (비수도권)

전국적인 인구감소 문제 환경에서 해석해본다면, 수도권 지역은 최근 3년간 인구 증감 폭이 크진 않았다.

유추해볼 수 있는 사유로는 지방소멸 문제로 지방권역의 인구가 수도권 지역으로 이동하는 현상 때문이다. 

따라서, 비수도권 지역은 지속적으로 감소하는 추세로 이어질 것으로 해석이 가능하다.