1 지역별 고용조사

1.1 조사개요

  1. 조사목적: 지역고용정책 수립에 필요한 시군단위의 세분화된 고용구조와 현황을 파악할 수 있는 기본통계를 생산제공

  2. https://meta.narastat.kr/metasvc/index.do?confmNo=101067

1.2 주요용어

  1. 15세이상 인구: 매반기 조사월(4월, 10월)의 15일 현재 만 15세이상인 자
  2. 경제활동인구: 만 15세이상인구 중 조사대상기간 동안 재화나 서비스를 생산하기 위하여 실제로 수입이 있는 일을 한 취업자와 일을 하지는 않았으나 구직활동을 한 실업자를 말함
  3. 취업자:
    • 조사대상주간에 수입을 목적으로 1시간 이상 일한 사람
    • 동일가구내 가구원이 운영하는 농장이나 사업체의 수입을 위하여 조사대상주간에 18시간이상 일한 무급가족종사자
    • 직업 또는 사업체를 가지고 있으나 조사대상 기간 중 일시적인 병 또는 사고, 휴가, 연가, 교육, 노사분규 등의 사유로 일하지 못한 일시휴직자
  4. 실업자:
    • 조사대상주간에 수입이 있는 일을 하지 않았음
    • 지난4주간 일자리를 찾아 적극적으로 구직활동을 하였음
    • 일자리가 주어지면 즉시 취업이 가능함
  5. 비경제활동인구: 만 15세이상인구 중 조사대상 기간에 취업도 실업도 아닌 상태에 있는 사람
    • 예) 전업주부, 학생 등
  6. 고용률: 만 15세이상인구 중 취업자가 차지하는 비율
    • 고용률(%) = (취업자 / 만 15세이상인구) × 100
  7. 실업률: 실업자가 경제활동인구(취업자+실업자)에서 차지하는 비율
    • 실업률(%) = (실업자 / 경제활동인구) × 100

2 과제4

  1. 아래의 url에서 데이터는 지역별 연령별 고용조사 자료이다. 다운로드 받고 R을 이용하여 필요한 자료를 추출하라.

    다운로드

    • 과목 홈페이지: “시군_9개도__연령별_취업자_및_고용률__전체__20181010020745.xlsx"
  2. 2016년과 2017년 상반기 시군별 고용률을 지도위에 그리시오.
  3. 2017년과 2017년 상반기와 하반기 시군별 고용률의 차이를 지도위에 그리시오.
  4. 2016년과 2017년 상반기 시군별 고용률의 차이를 지도위에 그리시오.

library(readxl)
library(stringr)
dt <- read_excel("시군_9개도__연령별_취업자_및_고용률__전체__20181010020745.xlsx")

kable(head(dt), digits = 4)
행정구역 연령별 취업자_2017_1 고용률_2017_1 취업자_2017_2 고용률_2017_2 취업자_2018_1 고용률_2018_1
3101 수원시 000 계 590.4 57.9 596.20000000000005 58.1 603.9 58.7
- 010 15 - 29세 101.3 41 101.1 41.1 102.9 42
- 020 30 - 49세 305.7 73.5 302.2 72.7 298.5 72.400000000000006
3102 성남시 000 계 472.4 58.2 471.7 58.2 467.2 57.9
- 010 15 - 29세 72.8 42.4 68.099999999999994 40.200000000000003 71.099999999999994 42.6
- 020 30 - 49세 234.3 73.8 235.8 75.099999999999994 233 75.5
for(i in 1:length(dt$행정구역)){
  if(!is.na(dt$행정구역[i])) h <- dt$행정구역[i] else dt$행정구역[i] <- h
}

sigun <- str_split(dt$행정구역, " ")
sigun <- do.call(rbind, sigun)
dt$sigun_cd <- sigun[,1]
dt$sigun_nm <- sigun[,2]

dt$연령별 <- str_replace_all(dt$연령별, " - ", "-")
age <- str_split(dt$연령별, " ")
age <- do.call(rbind, age)
#age <- lapply(age, function(x){if(length(x)>2) {c(x[1], paste0(x[-1], collapse=""))}else{x}})
dt$age_cd <- age[,1]
dt$age_nm <- age[,2]