정오표

636페이지의 sqldf 함수 예제를 Windows에서 실행할 때 한글 인코딩 문제가 발행하여 다음과 같이 소스를 변경합니다. 독자 여러분께 불편을 드려 죄송합니다.

위치정보: 636페이지

<원 소스>

level1_dbf <- sqldf(“select level1_dbf.*, data1.* from level1_dbf, data1
where level1_dbf.code = data1.C행정구역별_읍면동”)
level2_dbf <- sqldf(“select level2_dbf.*, data2.* from level2_dbf, data2
where level2_dbf.code = data2.C행정구역별_읍면동”)
level3_dbf <- sqldf(“select level3_dbf.*, data3.* from level3_dbf, data3
where level3_dbf.code = data3.CC행정구역별_읍면동”)

<변경소스>

## ======================================
## 한글 변수명을 백업한 후 영문으로 수정
## ======================================
tabname <- c(names(level1_dbf), names(data1))
names(data1) <- names(data2) <- names(data3) <- paste(“C”, 1:23, sep=””)
level1_dbf <- sqldf(“select level1_dbf.*, data1.* from level1_dbf, data1
where level1_dbf.code = data1.C1”)
level2_dbf <- sqldf(“select level2_dbf.*, data2.* from level2_dbf, data2
where level2_dbf.code = data2.C1”)
level3_dbf <- sqldf(“select level3_dbf.*, data3.* from level3_dbf, data3
where level3_dbf.code = data3.C1”)

## ======================================
## 영문 변수명을 한글 변수명으로 돌려놓기
## ======================================
names(level1_dbf) <- names(level2_dbf) <- names(level3_dbf) <- tabname

 

좀더 자세한 내용 및 관련 자료는 아래 링크를 참고하세요.

https://drive.google.com/open?id=0B1UOPBEhikF0ak41aXFud3ZFazA

————————————————————————————————