고용노동통계 통계DB → 고용부문을 클릭하게 되면 “한국고용직업분류표”가 있고 2007년 기준 직업분류표를 엑셀로 받아 작업할 수 있다.
library(tidyverse)
library(readxl)
library(xts)
job_dat <- read_excel("data/2007한국고용직업분류표.xls", skip=1)
job_df <- job_dat %>%
set_names(c("중분류코드", "중분류", "소분류코드", "소분류", "세분류코드", "세분류")) %>%
mutate(중분류코드 = na.locf(중분류코드),
중분류 = na.locf(중분류),
소분류코드 = na.locf(중분류코드),
소분류 = na.locf(소분류),
세분류코드 = na.locf(세분류코드),
세분류 = na.locf(세분류)) %>%
select(중분류, 소분류, 세분류)
job_df %>%
DT::datatable()data.tree 자료구조 변환데이터프레임을 data.tree 자료구조로 변환시킨다.
library(data.tree)
job_df$pathString <- paste("job",
job_df$중분류,
job_df$소분류,
job_df$세분류,
sep = "/")
job_tree <- as.Node(job_df)
print(job_tree, "중분류", "소분류", limit = 10) levelName 중분류
1 job
2 ¦--관리직
3 ¦ ¦--고위공무원 및 기업 고위임원
4 ¦ ¦ ¦--의회의원•고위공무원 및 공공단체임원 관리직
5 ¦ ¦ °--기업고위임원 관리직
6 ¦ ¦--경영지원, 행정 및 금융 관련 관리자
7 ¦ ¦ ¦--경영지원 관리자 관리직
8 ¦ ¦ ¦--정부행정 관리자 관리직
9 ¦ ¦ ¦--행정 및 경영지원 관련 서비스 관리자 관리직
10 ¦ ¦ °--... 2 nodes w/ 0 sub
11 ¦ °--... 7 nodes w/ 19 sub
12 °--... 23 nodes w/ 565 sub
소분류
1
2
3
4 고위공무원 및 기업 고위임원
5 고위공무원 및 기업 고위임원
6
7 경영지원, 행정 및 금융 관련 관리자
8 경영지원, 행정 및 금융 관련 관리자
9 경영지원, 행정 및 금융 관련 관리자
10
11
12 listviewer 형태를 선호하면 ToListSimple() 함수로 리스트로 자료구조를 변환시킨 후에 jsonedit() 함수로 시각화한다.
collapsibleTree 팩키지 collapsibleTree() 함수로 시각화를 한다.
한국고용정보원은 2017년 12월 20일 개정 고시(고용노동부장관) 및 2018년 1월1일자를 기해 한국고용직업분류 2018 분류표 및 해설서를 공지하였다. 다음 웹사이트를 통해 분류표와 해설서를 다운로드 받을 수 있다.
job_2018_dat <- read_excel("data/04.한국고용직업분류.xlsx", sheet="고용직업분류 2018", skip=2)
job_2018_df <- job_2018_dat %>%
set_names(c("대분류코드", "대분류", "중분류코드", "중분류", "소분류코드", "소분류", "세분류코드", "세분류")) %>%
mutate(대분류코드 = na.locf(대분류코드),
대분류 = na.locf(대분류),
중분류코드 = na.locf(중분류코드),
중분류 = na.locf(중분류),
소분류코드 = na.locf(중분류코드),
소분류 = na.locf(소분류),
세분류코드 = na.locf(세분류코드),
세분류 = na.locf(세분류)) %>%
select(대분류, 중분류, 소분류, 세분류)