R로 무선전화번호 RDD를 생성해보자

여론조사기관에서 조사를 할 때, 많은 경우 무선전화번호를 사용해서 조사를 한다. 여심위를 통해 통신사로부터 가상번호를 발급받아 조사를 하는 경우도 있지만, 비용 문제 등으로 인해 RDD (Random Digit Dialing)를 사용하기도 한다.

그러면 RDD를 쓰는 경우에 010 번호를 어떻게 생성해야 할까? 물론 엑셀을 통한 수작업으로 생성할 수도 있겠지만 R 스크립트를 한 번 작성해놓으면 원하는 때마다 빠르게 대량의 번호를 생성할 수 있어서 유용하다.

다음을 한 번 살펴보자 먼저 R 패키지 중 핵심이라고 할 수 있는 tidyverse 패키지를 불러온다 (없으면 install.packages("tidyverse")로 설치 할 것). library("tidyverse") mid <- 2000:9999 exclude <- c(6000:6199, 6900:7099, 7800:7899) mid <- subset(mid, !(mid %in% exclude)) length_N <- leng...