In jongjinyun/KSIC: Korea Standard Industry Code Data

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

KSIC

R에서 한국표준산업분류(KSIC)를 이용하기 위한 패키지입니다. KSIC 패키지에서 제공하고자 하는 기능은 다음과 같습니다.

Data: ksicDB
Function: ksic(), is_ksic(), ksic_sub(), ksic_group()

데이터의 출처는 아래와 같습니다.

통계분류포털

Installation

KSIC package는 아래와 같이 설치할 수 있습니다.

# install.packages("devtools")
devtools::install_github("jongjinyun/KSIC")

데이터의 구조

ksic_db의 메타데이터는 다음과 같습니다.

|이름|한글명|데이터 유형|세부내용| |------|------|------|------| |ksic_C|한국표준산업분류 차수|character|"C9"=9차, "C10"=10차| |ksic_cd|분류코드|character|| |ksic_nm|분류명|character|| |digit|분류체계|integer|1="대분류", 2="중분류", 3="소분류", 4="세분류", 5="세세분류"|

주요 함수

ksic(digit=5,C=10): ksic 코드를 불러옵니다.
- digit(integer): 추출하고자 하는 sub digit (기본값=5)
- C(integer): KSIC차수 9 또는 10 (기본값=10)

> ksic(1)
   ksic_cd                                          ksic_nm digit ksic_C
1        A                        농업, 임업 및 어업(01~03)     1    C10
2        B                                      광업(05~08)     1    C10
3        C                                    제조업(10~34)     1    C10
4        D         전기, 가스, 증기 및 공기 조절 공급업(35)     1    C10
5        E    수도, 하수 및 폐기물 처리, 원료 재생업(36~39)     1    C10
6        F                                    건설업(41~42)     1    C10

is_ksic(x): x가 ksic코드에 있는지 여부를 반환합니다.

> is_ksic("A")
  input  C10   C9
1     A TRUE TRUE

> is_ksic("1")
  input   C10    C9
1     1 FALSE FALSE

ksic_sub(ksic, digit, C): 입력된 ksic에 대하여 digit에 해당하는 하위분류를 추출합니다.
- ksic(character): ksic 코드 (예. "30")
- digit(integer): 추출하고자 하는 sub digit (기본값=5)
- C(integer): KSIC차수 9 또는 10 (기본값=10)

ksic_sub("30",5,10)
   ksic_C ksic_cd                                   ksic_nm
1     C10   30110                      자동차용 엔진 제조업
2     C10   30121       승용차 및 기타 여객용 자동차 제조업
3     C10   30122  화물 자동차 및 특수 목적용 자동차 제조업
4     C10   30201                     차체 및 특장차 제조업
5     C10   30202                자동차 구조 및 장치 변경업
6     C10   30203          트레일러 및 세미 트레일러 제조업
7     C10   30310            자동차 엔진용 신품 부품 제조업
8     C10   30320            자동차 차체용 신품 부품 제조업
9     C10   30331        자동차용 신품 동력 전달장치 제조업
10    C10   30332             자동차용 신품 전기장치 제조업
11    C10   30391 자동차용 신품 조향장치 및 현가장치 제조업
12    C10   30392             자동차용 신품 제동장치 제조업
13    C10   30393                 자동차용 신품 의자 제조업
14    C10   30399           그 외 자동차용 신품 부품 제조업
15    C10   30400                 자동차 재제조 부품 제조업

ksic_group(ksic, digit, C, name = F): 입력된 ksic에 대하여 digit에 해당하는 상위분류를 추출합니다. (output: vector)
- ksic(character): ksic 코드 (예. "30")
- digit(integer): 추출하고자 하는 상위 또는 같은 digit (기본값=1)
- C(integer): KSIC차수 9 또는 10 (기본값=10)
- name(logical): T or F (기본값 = F)
  - TRUE: ksic 이름을 return합니다. (vector)
  - FALSE: ksic 코드를 return합니다. (vector)

x <- c('26222', '26223', '26299', '26429', '58221', '58222', '61220', '61299')
> ksic_group(x,1)
[1] "C" "C" "C" "C" "J" "J" "J" "J"
> ksic_group(x,1,name=T)
[1] "제조업(10~34)"     "제조업(10~34)"     "제조업(10~34)"     "제조업(10~34)"    
[5] "정보통신업(58~63)" "정보통신업(58~63)" "정보통신업(58~63)" "정보통신업(58~63)"

x <- data.frame(ksic5=c('26222', '26223', '26299', '26429', '58221', '58222', '61220', '61299'))
dplyr::mutate(x, ksic2_cd = ksic_group(ksic5,2),
                 ksic2_nm = ksic_group(ksic5,2,name=T))
  ksic5 ksic2_cd                                         ksic2_nm
1 26222       26 전자 부품, 컴퓨터, 영상, 음향 및 통신장비 제조업
2 26223       26 전자 부품, 컴퓨터, 영상, 음향 및 통신장비 제조업
3 26299       26 전자 부품, 컴퓨터, 영상, 음향 및 통신장비 제조업
4 26429       26 전자 부품, 컴퓨터, 영상, 음향 및 통신장비 제조업
5 58221       58                                           출판업
6 58222       58                                           출판업
7 61220       61                                   우편 및 통신업
8 61299       61                                   우편 및 통신업