3. 2005~2014 업태별 창업/폐업 건수 시각화 in R

[예고편]

이전분석 - "1. 치킨집과 국내경제"

확인하기 : http://gigle.tistory.com/75

 "결론은 문이과를 나와도 너도나도 치킨집"

손석희 사장님도 어쩌면 곧 치킨집을..

"그러나 치킨집의 결말은.. 어땠을까?"

[결과물]

2005-2014 카페 창업/폐업 건수 비교

2005-2014 치킨집 창업/폐업 건수 비교

2005-2014 술집(호프간이주점) 창업/폐업 건수 비교

2005-2014 일식집 창업/폐업 건수 비교

2005-2014 한식음식점 창업/폐업 건수 비교

[요약]

- 2007년을 기점으로 치킨집 점주들과 카페 점주들은 희비가 엇갈렸다.

:: 치킨집의 폐업건수가 2007년도에 최대치, 서브프라임 모기지가 원인인 것으로 추측.

:: 그러나 카페 창업은 2007년 경제위기를 빗겨나갔다. 오히려 창업이 계속해서 증가, 폐업은 미미하게 증가

:: 한국 시장에서 그만큼 커피수요가 창출되었다는 것을 의미하기도.

- 따라서 2007년 이후에 별다른 소신 없이 치킨집 창업에 뛰어드는 것은 무모한 일이었다.

:: 차라리 카페를 하는 것이 현명

[Code]

환경 : R Studio

라이브러리 :

코드 :

show_line <- function() {

  

  market <- readline(prompt = "업종을 입력하세요")

  

  graphics.off()

  chic_sta <- create_cnt[ , market]

  chic_end <- drop_cnt[ , market]

  chic_range <- range(0, chic_sta, chic_end)

  

  head(create_cnt)

  lab_year <- create_cnt[,"X"]

  

  plot(chic_sta, type="o", col = "blue", ylim = chic_range, axes = FALSE, ann = FALSE, pch = 1)

  axis(1, at=1:10, lab=lab_year )

  axis(2)

  box()

  

  lines(chic_end, type="o", col = "red", lty = 3, pch = 22 )

  legend(5, chic_range[2] ,c("창업","폐업"),col=c("blue","red"),cex=0.8,pch=1:22,lty=1:3 )

  

  title(main = paste(market, "창업/폐업 현황") , col.main="red", font.main=4)

  

}

show_line()