library(httr)
library(rvest)
sido.data <- GET('https://www.kais.kr/realtyprice/bjd/searchBjd.bjd?gubun=&addr_gbn=&sido=&sgg=&eu')
sido.json <- content(sido.data) #json 형식으로 저장된, 광역자치단체 정보가 포함된 자료를 가져온다.
sido.json$model$list # list 형식으로 저장된 목록에서 광역자치단체 정보만 뽑아온다. ## [[1]]
## [[1]]$result
## NULL
##
## [[1]]$sido
## [1] "11"
##
## [[1]]$sgg
## NULL
##
## [[1]]$emd
## NULL
##
## [[1]]$year
## NULL
##
## [[1]]$reg
## [1] "11000"
##
## [[1]]$eub
## [1] "00000"
##
## [[1]]$as1
## NULL
##
## [[1]]$as2
## NULL
##
## [[1]]$as3
## NULL
##
## [[1]]$as4
## NULL
##
## [[1]]$name
## [1] "서울특별시"
##
## [[1]]$code
## [1] "11"
##
## [[1]]$gubun
## NULL
##
## [[1]]$p_send_name
## NULL
##
## [[1]]$p_send_mobile
## NULL
##
## [[1]]$p_recv_mobile
## NULL
##
## [[1]]$p_content
## NULL
##
##
## [[2]]
## [[2]]$result
## NULL
##
## [[2]]$sido
## [1] "26"
##
## [[2]]$sgg
## NULL
##
## [[2]]$emd
## NULL
##
## [[2]]$year
## NULL
##
## [[2]]$reg
## [1] "26000"
##
## [[2]]$eub
## [1] "00000"
##
## [[2]]$as1
## NULL
##
## [[2]]$as2
## NULL
##
## [[2]]$as3
## NULL
##
## [[2]]$as4
## NULL
##
## [[2]]$name
## [1] "부산광역시"
##
## [[2]]$code
## [1] "26"
##
## [[2]]$gubun
## NULL
##
## [[2]]$p_send_name
## NULL
##
## [[2]]$p_send_mobile
## NULL
##
## [[2]]$p_recv_mobile
## NULL
##
## [[2]]$p_content
## NULL
##
##
## [[3]]
## [[3]]$result
## NULL
##
## [[3]]$sido
## [1] "27"
##
## [[3]]$sgg
## NULL
##
## [[3]]$emd
## NULL
##
## [[3]]$year
## NULL
##
## [[3]]$reg
## [1] "27000"
##
## [[3]]$eub
## [1] "00000"
##
## [[3]]$as1
## NULL
##
## [[3]]$as2
## NULL
##
## [[3]]$as3
## NULL
##
## [[3]]$as4
## NULL
##
## [[3]]$name
## [1] "대구광역시"
##
## [[3]]$code
## [1] "27"
##
## [[3]]$gubun
## NULL
##
## [[3]]$p_send_name
## NULL
##
## [[3]]$p_send_mobile
## NULL
##
## [[3]]$p_recv_mobile
## NULL
##
## [[3]]$p_content
## NULL
##
##
## [[4]]
## [[4]]$result
## NULL
##
## [[4]]$sido
## [1] "28"
##
## [[4]]$sgg
## NULL
##
## [[4]]$emd
## NULL
##
## [[4]]$year
## NULL
##
## [[4]]$reg
## [1] "28000"
##
## [[4]]$eub
## [1] "00000"
##
## [[4]]$as1
## NULL
##
## [[4]]$as2
## NULL
##
## [[4]]$as3
## NULL
##
## [[4]]$as4
## NULL
##
## [[4]]$name
## [1] "인천광역시"
##
## [[4]]$code
## [1] "28"
##
## [[4]]$gubun
## NULL
##
## [[4]]$p_send_name
## NULL
##
## [[4]]$p_send_mobile
## NULL
##
## [[4]]$p_recv_mobile
## NULL
##
## [[4]]$p_content
## NULL
##
##
## [[5]]
## [[5]]$result
## NULL
##
## [[5]]$sido
## [1] "29"
##
## [[5]]$sgg
## NULL
##
## [[5]]$emd
## NULL
##
## [[5]]$year
## NULL
##
## [[5]]$reg
## [1] "29000"
##
## [[5]]$eub
## [1] "00000"
##
## [[5]]$as1
## NULL
##
## [[5]]$as2
## NULL
##
## [[5]]$as3
## NULL
##
## [[5]]$as4
## NULL
##
## [[5]]$name
## [1] "광주광역시"
##
## [[5]]$code
## [1] "29"
##
## [[5]]$gubun
## NULL
##
## [[5]]$p_send_name
## NULL
##
## [[5]]$p_send_mobile
## NULL
##
## [[5]]$p_recv_mobile
## NULL
##
## [[5]]$p_content
## NULL
##
##
## [[6]]
## [[6]]$result
## NULL
##
## [[6]]$sido
## [1] "30"
##
## [[6]]$sgg
## NULL
##
## [[6]]$emd
## NULL
##
## [[6]]$year
## NULL
##
## [[6]]$reg
## [1] "30000"
##
## [[6]]$eub
## [1] "00000"
##
## [[6]]$as1
## NULL
##
## [[6]]$as2
## NULL
##
## [[6]]$as3
## NULL
##
## [[6]]$as4
## NULL
##
## [[6]]$name
## [1] "대전광역시"
##
## [[6]]$code
## [1] "30"
##
## [[6]]$gubun
## NULL
##
## [[6]]$p_send_name
## NULL
##
## [[6]]$p_send_mobile
## NULL
##
## [[6]]$p_recv_mobile
## NULL
##
## [[6]]$p_content
## NULL
##
##
## [[7]]
## [[7]]$result
## NULL
##
## [[7]]$sido
## [1] "31"
##
## [[7]]$sgg
## NULL
##
## [[7]]$emd
## NULL
##
## [[7]]$year
## NULL
##
## [[7]]$reg
## [1] "31000"
##
## [[7]]$eub
## [1] "00000"
##
## [[7]]$as1
## NULL
##
## [[7]]$as2
## NULL
##
## [[7]]$as3
## NULL
##
## [[7]]$as4
## NULL
##
## [[7]]$name
## [1] "울산광역시"
##
## [[7]]$code
## [1] "31"
##
## [[7]]$gubun
## NULL
##
## [[7]]$p_send_name
## NULL
##
## [[7]]$p_send_mobile
## NULL
##
## [[7]]$p_recv_mobile
## NULL
##
## [[7]]$p_content
## NULL
##
##
## [[8]]
## [[8]]$result
## NULL
##
## [[8]]$sido
## [1] "36"
##
## [[8]]$sgg
## NULL
##
## [[8]]$emd
## NULL
##
## [[8]]$year
## NULL
##
## [[8]]$reg
## [1] "36000"
##
## [[8]]$eub
## [1] "00000"
##
## [[8]]$as1
## NULL
##
## [[8]]$as2
## NULL
##
## [[8]]$as3
## NULL
##
## [[8]]$as4
## NULL
##
## [[8]]$name
## [1] "세종특별자치시"
##
## [[8]]$code
## [1] "36"
##
## [[8]]$gubun
## NULL
##
## [[8]]$p_send_name
## NULL
##
## [[8]]$p_send_mobile
## NULL
##
## [[8]]$p_recv_mobile
## NULL
##
## [[8]]$p_content
## NULL
##
##
## [[9]]
## [[9]]$result
## NULL
##
## [[9]]$sido
## [1] "41"
##
## [[9]]$sgg
## NULL
##
## [[9]]$emd
## NULL
##
## [[9]]$year
## NULL
##
## [[9]]$reg
## [1] "41000"
##
## [[9]]$eub
## [1] "00000"
##
## [[9]]$as1
## NULL
##
## [[9]]$as2
## NULL
##
## [[9]]$as3
## NULL
##
## [[9]]$as4
## NULL
##
## [[9]]$name
## [1] "경기도"
##
## [[9]]$code
## [1] "41"
##
## [[9]]$gubun
## NULL
##
## [[9]]$p_send_name
## NULL
##
## [[9]]$p_send_mobile
## NULL
##
## [[9]]$p_recv_mobile
## NULL
##
## [[9]]$p_content
## NULL
##
##
## [[10]]
## [[10]]$result
## NULL
##
## [[10]]$sido
## [1] "42"
##
## [[10]]$sgg
## NULL
##
## [[10]]$emd
## NULL
##
## [[10]]$year
## NULL
##
## [[10]]$reg
## [1] "42000"
##
## [[10]]$eub
## [1] "00000"
##
## [[10]]$as1
## NULL
##
## [[10]]$as2
## NULL
##
## [[10]]$as3
## NULL
##
## [[10]]$as4
## NULL
##
## [[10]]$name
## [1] "강원도"
##
## [[10]]$code
## [1] "42"
##
## [[10]]$gubun
## NULL
##
## [[10]]$p_send_name
## NULL
##
## [[10]]$p_send_mobile
## NULL
##
## [[10]]$p_recv_mobile
## NULL
##
## [[10]]$p_content
## NULL
##
##
## [[11]]
## [[11]]$result
## NULL
##
## [[11]]$sido
## [1] "43"
##
## [[11]]$sgg
## NULL
##
## [[11]]$emd
## NULL
##
## [[11]]$year
## NULL
##
## [[11]]$reg
## [1] "43000"
##
## [[11]]$eub
## [1] "00000"
##
## [[11]]$as1
## NULL
##
## [[11]]$as2
## NULL
##
## [[11]]$as3
## NULL
##
## [[11]]$as4
## NULL
##
## [[11]]$name
## [1] "충청북도"
##
## [[11]]$code
## [1] "43"
##
## [[11]]$gubun
## NULL
##
## [[11]]$p_send_name
## NULL
##
## [[11]]$p_send_mobile
## NULL
##
## [[11]]$p_recv_mobile
## NULL
##
## [[11]]$p_content
## NULL
##
##
## [[12]]
## [[12]]$result
## NULL
##
## [[12]]$sido
## [1] "44"
##
## [[12]]$sgg
## NULL
##
## [[12]]$emd
## NULL
##
## [[12]]$year
## NULL
##
## [[12]]$reg
## [1] "44000"
##
## [[12]]$eub
## [1] "00000"
##
## [[12]]$as1
## NULL
##
## [[12]]$as2
## NULL
##
## [[12]]$as3
## NULL
##
## [[12]]$as4
## NULL
##
## [[12]]$name
## [1] "충청남도"
##
## [[12]]$code
## [1] "44"
##
## [[12]]$gubun
## NULL
##
## [[12]]$p_send_name
## NULL
##
## [[12]]$p_send_mobile
## NULL
##
## [[12]]$p_recv_mobile
## NULL
##
## [[12]]$p_content
## NULL
##
##
## [[13]]
## [[13]]$result
## NULL
##
## [[13]]$sido
## [1] "45"
##
## [[13]]$sgg
## NULL
##
## [[13]]$emd
## NULL
##
## [[13]]$year
## NULL
##
## [[13]]$reg
## [1] "45000"
##
## [[13]]$eub
## [1] "00000"
##
## [[13]]$as1
## NULL
##
## [[13]]$as2
## NULL
##
## [[13]]$as3
## NULL
##
## [[13]]$as4
## NULL
##
## [[13]]$name
## [1] "전라북도"
##
## [[13]]$code
## [1] "45"
##
## [[13]]$gubun
## NULL
##
## [[13]]$p_send_name
## NULL
##
## [[13]]$p_send_mobile
## NULL
##
## [[13]]$p_recv_mobile
## NULL
##
## [[13]]$p_content
## NULL
##
##
## [[14]]
## [[14]]$result
## NULL
##
## [[14]]$sido
## [1] "46"
##
## [[14]]$sgg
## NULL
##
## [[14]]$emd
## NULL
##
## [[14]]$year
## NULL
##
## [[14]]$reg
## [1] "46000"
##
## [[14]]$eub
## [1] "00000"
##
## [[14]]$as1
## NULL
##
## [[14]]$as2
## NULL
##
## [[14]]$as3
## NULL
##
## [[14]]$as4
## NULL
##
## [[14]]$name
## [1] "전라남도"
##
## [[14]]$code
## [1] "46"
##
## [[14]]$gubun
## NULL
##
## [[14]]$p_send_name
## NULL
##
## [[14]]$p_send_mobile
## NULL
##
## [[14]]$p_recv_mobile
## NULL
##
## [[14]]$p_content
## NULL
##
##
## [[15]]
## [[15]]$result
## NULL
##
## [[15]]$sido
## [1] "47"
##
## [[15]]$sgg
## NULL
##
## [[15]]$emd
## NULL
##
## [[15]]$year
## NULL
##
## [[15]]$reg
## [1] "47000"
##
## [[15]]$eub
## [1] "00000"
##
## [[15]]$as1
## NULL
##
## [[15]]$as2
## NULL
##
## [[15]]$as3
## NULL
##
## [[15]]$as4
## NULL
##
## [[15]]$name
## [1] "경상북도"
##
## [[15]]$code
## [1] "47"
##
## [[15]]$gubun
## NULL
##
## [[15]]$p_send_name
## NULL
##
## [[15]]$p_send_mobile
## NULL
##
## [[15]]$p_recv_mobile
## NULL
##
## [[15]]$p_content
## NULL
##
##
## [[16]]
## [[16]]$result
## NULL
##
## [[16]]$sido
## [1] "48"
##
## [[16]]$sgg
## NULL
##
## [[16]]$emd
## NULL
##
## [[16]]$year
## NULL
##
## [[16]]$reg
## [1] "48000"
##
## [[16]]$eub
## [1] "00000"
##
## [[16]]$as1
## NULL
##
## [[16]]$as2
## NULL
##
## [[16]]$as3
## NULL
##
## [[16]]$as4
## NULL
##
## [[16]]$name
## [1] "경상남도"
##
## [[16]]$code
## [1] "48"
##
## [[16]]$gubun
## NULL
##
## [[16]]$p_send_name
## NULL
##
## [[16]]$p_send_mobile
## NULL
##
## [[16]]$p_recv_mobile
## NULL
##
## [[16]]$p_content
## NULL
##
##
## [[17]]
## [[17]]$result
## NULL
##
## [[17]]$sido
## [1] "50"
##
## [[17]]$sgg
## NULL
##
## [[17]]$emd
## NULL
##
## [[17]]$year
## NULL
##
## [[17]]$reg
## [1] "50000"
##
## [[17]]$eub
## [1] "00000"
##
## [[17]]$as1
## NULL
##
## [[17]]$as2
## NULL
##
## [[17]]$as3
## NULL
##
## [[17]]$as4
## NULL
##
## [[17]]$name
## [1] "제주특별자치도"
##
## [[17]]$code
## [1] "50"
##
## [[17]]$gubun
## NULL
##
## [[17]]$p_send_name
## NULL
##
## [[17]]$p_send_mobile
## NULL
##
## [[17]]$p_recv_mobile
## NULL
##
## [[17]]$p_content
## NULLunlist(sido.json$model$list) #list 형식을 해제한다. ## sido reg eub name
## "11" "11000" "00000" "서울특별시"
## code sido reg eub
## "11" "26" "26000" "00000"
## name code sido reg
## "부산광역시" "26" "27" "27000"
## eub name code sido
## "00000" "대구광역시" "27" "28"
## reg eub name code
## "28000" "00000" "인천광역시" "28"
## sido reg eub name
## "29" "29000" "00000" "광주광역시"
## code sido reg eub
## "29" "30" "30000" "00000"
## name code sido reg
## "대전광역시" "30" "31" "31000"
## eub name code sido
## "00000" "울산광역시" "31" "36"
## reg eub name code
## "36000" "00000" "세종특별자치시" "36"
## sido reg eub name
## "41" "41000" "00000" "경기도"
## code sido reg eub
## "41" "42" "42000" "00000"
## name code sido reg
## "강원도" "42" "43" "43000"
## eub name code sido
## "00000" "충청북도" "43" "44"
## reg eub name code
## "44000" "00000" "충청남도" "44"
## sido reg eub name
## "45" "45000" "00000" "전라북도"
## code sido reg eub
## "45" "46" "46000" "00000"
## name code sido reg
## "전라남도" "46" "47" "47000"
## eub name code sido
## "00000" "경상북도" "47" "48"
## reg eub name code
## "48000" "00000" "경상남도" "48"
## sido reg eub name
## "50" "50000" "00000" "제주특별자치도"
## code
## "50"sido <- matrix(unlist(sido.json$model$list), ncol=5, byrow=TRUE) #matrix로 저장한다.
sido[,5] # sido의 5번째 열에 코드 저장## [1] "11" "26" "27" "28" "29" "30" "31" "36" "41" "42" "43" "44" "45" "46"
## [15] "47" "48" "50"sgg.url <- 'https://www.kais.kr/realtyprice/bjd/searchBjd.bjd?gubun=sgg&addr_gbn=&sido=11&sg'
sgg <- matrix(rep(0,5), ncol=5)
for (code in sido[,5])
{
temp.url <- modify_url(sgg.url, query=list(sido=code, sido_list=code))
temp.res <- GET(temp.url)
json.temp <- content(temp.res)
sgg.temp <-matrix(unlist(json.temp$model$list), ncol=5, byrow=TRUE)
sgg <- rbind(sgg, sgg.temp)
}
sgg <- sgg[-1,] #맨 첫줄을 삭제한다.
head(sgg)## [,1] [,2] [,3] [,4] [,5]
## [1,] "11" "11680" "00000" "강남구" "11680"
## [2,] "11" "11740" "00000" "강동구" "11740"
## [3,] "11" "11305" "00000" "강북구" "11305"
## [4,] "11" "11500" "00000" "강서구" "11500"
## [5,] "11" "11620" "00000" "관악구" "11620"
## [6,] "11" "11215" "00000" "광진구" "11215"eub.url <- 'https://www.kais.kr/realtyprice/bjd/searchBjd.bjd?gubun=eub&addr_gbn=&sido=11&sgg=11680&eub=&year=2015&sido_list=11&sgg_list=11680'
eub <- matrix(rep(0,4), ncol=4)
for (i in 1:dim(sgg)[1])
{
temp.url <- modify_url(eub.url, query=list(sido=sgg[i,1], sido_list=sgg[i,1],
sgg=sgg[i,2], sgg_list=sgg[i,2]))
temp.res <- GET(temp.url)
json.temp <- content(temp.res)
eub.temp <-matrix(unlist(json.temp$model$list), ncol=4, byrow=TRUE)
eub <- rbind(eub, eub.temp)
}
eub <- eub[-1,]
head(sido, 3)## [,1] [,2] [,3] [,4] [,5]
## [1,] "11" "11000" "00000" "서울특별시" "11"
## [2,] "26" "26000" "00000" "부산광역시" "26"
## [3,] "27" "27000" "00000" "대구광역시" "27"sido <- as.data.frame(sido)
sido <- subset(sido, select = c(V1, V4))
names(sido) <- c("sido.code", "sido.name")
head(sgg, 3)## [,1] [,2] [,3] [,4] [,5]
## [1,] "11" "11680" "00000" "강남구" "11680"
## [2,] "11" "11740" "00000" "강동구" "11740"
## [3,] "11" "11305" "00000" "강북구" "11305"sgg <- as.data.frame(sgg)
sgg <- subset(sgg, select = c(V1, V2, V4))
names(sgg) <- c("sido.code", "sgg.code", "sgg.name")
head(eub, 3)## [,1] [,2] [,3] [,4]
## [1,] "11680" "10300" "개포동" "10300"
## [2,] "11680" "10800" "논현동" "10800"
## [3,] "11680" "10600" "대치동" "10600"eub <- as.data.frame(eub[,1:3])
names(eub) <- c("sgg.code", "eub.code", "eub.name")
temp <- merge(sido, sgg, by = "sido.code")
full.data <- merge(temp, eub, by = "sgg.code")
head(full.data)## sgg.code sido.code sido.name sgg.name eub.code eub.name
## 1 11110 11 서울특별시 종로구 14600 가회동
## 2 11110 11 서울특별시 종로구 12900 견지동
## 3 11110 11 서울특별시 종로구 13400 경운동
## 4 11110 11 서울특별시 종로구 14800 계동
## 5 11110 11 서울특별시 종로구 12700 공평동
## 6 11110 11 서울특별시 종로구 15500 관수동예: 서울특별시 노원구 하계동
target.url <- 'https://www.kais.kr/realtyprice/search/gsSearchList.search'
page <- 1
reg.price <- matrix(rep(0, 11), ncol=11)
while(TRUE)
{
res <- POST(target.url,
body = list(
search_gbn=0,
page_no=page,
reg_name='서울특별시 노원구 하계동',
search_cd=0,
sreg=11350,
seub=10400,
year=2015,
old_reg='00000',
old_eub='00000',
gbn=0))
temp.h <- html(res)
cells <- html_text(html_nodes(temp.h, 'td'))
if(length(cells) == 0)
{
break
}
reg.price <- rbind(reg.price, matrix(cells, ncol=11, byrow=TRUE))
page <- page + 1
}
reg.price <- reg.price[-1,]
reg.price <- as.data.frame(reg.price)
head(reg.price, 1)## V1 V2 V3 V4 V5
## 1 11350294 하계동 9-6 335.0 전 395,000
## V6 V7 V8 V9
## 1 주공9단지909동북동측건너편 전기타 시가지주변 농경지대 광대한면
## V10 V11
## 1 사다리평지 자연녹지names(reg.price) <- c("일렬번호", "소재지", "면적", "지목", "공시지가", "지리적 위치",
"이용상황", "주위환경", "도로교통", "형상지세", "용도지역")서울특별시 노원구 하계동과, 전라북도 군산시 회현면 학당리의 공시지가를 다 뽑아보자. 조사대상 목록의 코드가 들어간 target을 생성한다.
head(full.data)## sgg.code sido.code sido.name sgg.name eub.code eub.name
## 1 11110 11 서울특별시 종로구 14600 가회동
## 2 11110 11 서울특별시 종로구 12900 견지동
## 3 11110 11 서울특별시 종로구 13400 경운동
## 4 11110 11 서울특별시 종로구 14800 계동
## 5 11110 11 서울특별시 종로구 12700 공평동
## 6 11110 11 서울특별시 종로구 15500 관수동d1 <- subset(full.data, sido.name=="서울특별시" & sgg.name == "노원구" & eub.name == "하계동")
d2 <- subset(full.data, sido.name=="전라북도" & sgg.name == "군산시" & eub.name == "회현면 학당리")
target <- rbind(d1, d2)
target## sgg.code sido.code sido.name sgg.name eub.code eub.name
## 289 11350 11 서울특별시 노원구 10400 하계동
## 9738 45130 45 전라북도 군산시 32026 회현면 학당리target.url <- 'https://www.kais.kr/realtyprice/search/gsSearchList.search'
target.reg.price <- matrix(rep(0, 11), ncol=11)
ncol(target)## [1] 6nrow(target)## [1] 2for (i in 1:nrow(target))
{
page <- 1
while(TRUE)
{
print(page)
res <- POST(target.url,
body = list(
search_gbn=0,
page_no=page,
reg_name='서울특별시 노원구 하계동',
search_cd=0,
sreg=target$sgg.code[i],
seub=target$eub.code[i],
year=2015,
old_reg='00000',
old_eub='00000',
gbn=0))
temp.h <- html(res)
cells <- html_text(html_nodes(temp.h, 'td'))
if(length(cells) == 0)
{
break
}
target.reg.price <- rbind(target.reg.price, matrix(cells, ncol=11, byrow=TRUE))
page <- page + 1
}
}## [1] 1
## [1] 2
## [1] 3
## [1] 1
## [1] 2
## [1] 3target.reg.price <- target.reg.price[-1,]
target.reg.price## [,1] [,2] [,3] [,4]
## [1,] "11350294" "하계동 9-6" " 335.0" "전"
## [2,] "11350295" "하계동 60-3" " 119.0" "대"
## [3,] "11350296" "하계동 61-7" " 189.0" "대"
## [4,] "11350297" "하계동 61-17" " 188.0" "대"
## [5,] "11350298" "하계동 65-30" " 129.0" "대"
## [6,] "11350299" "하계동 66-3" " 130.0" "대"
## [7,] "11350300" "하계동 70-15" " 284.0" "대"
## [8,] "11350301" "하계동 120-7" " 103.0" "대"
## [9,] "11350302" "하계동 153-18" " 178.0" "대"
## [10,] "11350303" "하계동 155-3" " 119.0" "대"
## [11,] "11350304" "하계동 160-3" " 203.0" "대"
## [12,] "11350305" "하계동 163-4" " 188.0" "대"
## [13,] "11350306" "하계동 167-32" " 172.0" "대"
## [14,] "11350307" "하계동 169-3" " 440.0" "대"
## [15,] "11350308" "하계동 178-2" " 328.0" "대"
## [16,] "11350309" "하계동 180-21" " 99.0" "대"
## [17,] "11350310" "하계동 208-1" " 298.0" "대"
## [18,] "11350311" "하계동 208-13" " 122.0" "대"
## [19,] "11350312" "하계동 213-10" " 331.0" "종"
## [20,] "11350313" "하계동 240-19" " 233.0" "대"
## [21,] "11350314" "하계동 256-9" " 825.0" "대"
## [22,] "11350315" "하계동 275-1" " 348.0" "대"
## [23,] "11350316" "하계동 283-1" " 5,090.2" "대"
## [24,] "11350317" "하계동 284" " 50,993.7" "대"
## [25,] "11350318" "하계동 336-1" " 280.0" "전"
## [26,] "11350319" "하계동 산16-26" " 6,662.0" "임"
## [27,] "451302053" "학당리 25-8" " 4,000.0" "답"
## [28,] "451302054" "학당리 29-8" " 4,000.0" "답"
## [29,] "451302055" "학당리 100-48" " 4,903.0" "답"
## [30,] "451302056" "학당리 100-99" " 304.0" "대"
## [31,] "451302057" "학당리 281-1" " 2,086.0" "전"
## [32,] "451302058" "학당리 299-4" " 3,666.0" "답"
## [33,] "451302059" "학당리 346-1" " 486.0" "대"
## [34,] "451302060" "학당리 371" " 1,435.0" "전"
## [35,] "451302061" "학당리 401-5" " 344.0" "대"
## [36,] "451302062" "학당리 415-1" " 2,248.0" "답"
## [37,] "451302063" "학당리 489-1" " 677.0" "대"
## [38,] "451302064" "학당리 494-1" " 767.0" "전"
## [39,] "451302065" "학당리 554-3" " 826.0" "전"
## [40,] "451302066" "학당리 592-1" " 1,140.0" "전"
## [41,] "451302067" "학당리 621" " 1,676.0" "전"
## [42,] "451302068" "학당리 655-3" " 916.0" "대"
## [43,] "451302069" "학당리 875-1" " 330.0" "대"
## [44,] "451302070" "학당리 998-1" " 949.0" "대"
## [45,] "451302071" "학당리 1008" " 3,620.0" "답"
## [46,] "451302072" "학당리 1027" " 527.0일단지" "대"
## [47,] "451302073" "학당리 1045-2" " 919.0" "전"
## [48,] "451302074" "학당리 1057-6" " 572.0" "전"
## [49,] "451302075" "학당리 1078-3" " 340.0일단지" "대"
## [50,] "451302076" "학당리 1103" " 2,499.0" "답"
## [51,] "451302077" "학당리 1246-16" " 4,000.0" "답"
## [52,] "451302078" "학당리 1250-14" " 3,940.0" "답"
## [53,] "451302079" "학당리 1252-6" " 3,772.0" "답"
## [54,] "451302080" "학당리 1255-7" " 3,907.0" "답"
## [55,] "451302081" "학당리 1260-4" " 3,008.0" "답"
## [56,] "451302082" "학당리 1261-17" " 4,000.0" "답"
## [57,] "451302083" "학당리 1263-25" " 241.0일단지" "대"
## [58,] "451302084" "학당리 1268-17" " 3,855.0" "답"
## [59,] "451302085" "학당리 산34" " 3,769.0" "임"
## [60,] "451302086" "학당리 산95" " 6,843.0" "임"
## [,5] [,6] [,7]
## [1,] " 395,000" "주공9단지909동북동측건너편" "전기타"
## [2,] " 2,100,000" "대진고교남서측인근" "주상용"
## [3,] " 2,290,000" "대진고교남측인근" "주상용"
## [4,] " 1,900,000" "대진고교남측인근" "단독주택"
## [5,] " 1,620,000" "우방아파트남동측인근" "단독주택"
## [6,] " 1,950,000" "대진고등학교남동측인근" "단독주택"
## [7,] " 1,930,000" "대진고교남동측인근" "다세대"
## [8,] " 1,720,000" "연촌초등교서측인근" "단독주택"
## [9,] " 2,120,000" "연촌초등교남측인근" "단독주택"
## [10,] " 2,020,000" "연촌초등교서측 인근" "주상용"
## [11,] " 2,460,000" "연촌초등교북동측인근" "주상용"
## [12,] " 2,170,000" "연촌초등교북측인근" "주상용"
## [13,] " 1,860,000" "대진고교남서측인근" "단독주택"
## [14,] " 2,300,000" "하계동성당서측인근" "주상용"
## [15,] " 1,950,000" "을지병원동측인근" "주상기타"
## [16,] " 2,095,000" "미성아파트6동동측인근" "주상용"
## [17,] " 2,140,000" "하계중학교남서측인근" "주상용"
## [18,] " 1,920,000" "노원소방서북서측인근" "단독주택"
## [19,] " 1,750,000" "하계중학교서측인근" "주거기타"
## [20,] " 2,050,000" "노원치안센터남서측인근" "주상용"
## [21,] " 4,540,000" "대진고교북측인근" "상업용"
## [22,] " 1,950,000" "청솔아파트북측인근" "다세대"
## [23,] " 2,640,000" "한성여객정류장부지" "상업용"
## [24,] " 2,890,000" "청구,한신아파트부지" "아파트"
## [25,] " 388,000" "중현초등학교남동측인근" "주거나지"
## [26,] " 37,000" "불암산종합스타디둠서측인근" "자연림"
## [27,] " 21,000" "신당1구남측 인근" "답"
## [28,] " 19,000" "방채마을서측인근" "답"
## [29,] " 18,000" "오산촌마을남동측 인근" "답"
## [30,] " 31,000" "오산촌마을내" "단독주택"
## [31,] " 26,000" "신당마을내" "전"
## [32,] " 21,000" "신당마을남측인근" "답"
## [33,] " 39,000" "신당마을내" "단독주택"
## [34,] " 23,500" "신학당마을내" "전"
## [35,] " 38,000" "신학당마을 내" "주거나지"
## [36,] " 25,000" "신학당마을서측인근" "답"
## [37,] " 43,000" "원풍촌마을내" "단독주택"
## [38,] " 28,000" "원풍촌마을북측인근" "전"
## [39,] " 40,000" "풍성마을내" "전"
## [40,] " 30,000" "풍성마을내" "전"
## [41,] " 23,500" "풍촌일구마을내" "전"
## [42,] " 40,000" "풍촌3구마을내" "단독주택"
## [43,] " 51,000" "공지산사거리북측인근" "단독주택"
## [44,] " 38,000" "대위제남동측인근" "단독주택"
## [45,] " 21,000" "대위제서측인근" "답"
## [46,] " 31,000" "술앙굴마을내" "단독주택"
## [47,] " 21,000" "대위제동측 인근" "전"
## [48,] " 30,000" "구학당마을내" "전"
## [49,] " 52,000" "구학당마을내" "단독주택"
## [50,] " 37,000" "원학당마을북측인근" "답"
## [51,] " 22,500" "구학당마을동측인근" "답"
## [52,] " 23,000" "금광마을북측인근" "답"
## [53,] " 26,000" "금광마을동측인근" "답"
## [54,] " 22,000" "풍촌3구마을남측인근" "답"
## [55,] " 20,000" "오산촌마을북서측인근" "답"
## [56,] " 21,500" "풍성마을남측인근" "답"
## [57,] " 28,000" "오산촌마을 내" "단독주택"
## [58,] " 24,000" "풍성마을남측근거리" "답"
## [59,] " 7,100" "신당마을서측인근" "자연림"
## [60,] " 7,600" "구학당마을옆" "자연림"
## [,8] [,9] [,10]
## [1,] "시가지주변 농경지대" "광대한면" "사다리평지"
## [2,] "주택 및 상가혼용지대" "세각(가)" "사다리평지"
## [3,] "일반 주택지대" "소로각지" "가장형평지"
## [4,] "일반 주택지대" "세각(가)" "세장형평지"
## [5,] "기존 주택지대" "세로(불)" "사다리평지"
## [6,] "기존 주택지대" "소로한면" "사다리평지"
## [7,] "기존 주택지대" "소로각지" "사다리평지"
## [8,] "기존 주택지대" "세로(가)" "가장형평지"
## [9,] "일반 주택지대" "중로한면" "정방형평지"
## [10,] "주택 및 상가혼용지대" "세로(가)" "사다리평지"
## [11,] "주택 및 상가혼용지대" "중로한면" "사다리평지"
## [12,] "일반 주택지대" "소로한면" "사다리평지"
## [13,] "일반 주택지대" "세각(가)" "정방형평지"
## [14,] "주택 및 상가혼용지대" "세로(가)" "사다리평지"
## [15,] "주택 및 상가혼용지대" "세로(가)" "부정형평지"
## [16,] "주택 및 상가혼용지대" "세로(가)" "가장형평지"
## [17,] "기존 주택지대" "소로각지" "사다리평지"
## [18,] "주택 및 상가혼용지대" "소로한면" "사다리평지"
## [19,] "기존 주택지대" "세로(가)" "세장형평지"
## [20,] "주택 및 상가혼용지대" "소로한면" "사다리평지"
## [21,] "미성숙 상가지대" "광대소각" "가장형평지"
## [22,] "일반 주택지대" "세로(가)" "세장형평지"
## [23,] "노선 상가지대" "광대소각" "부정형평지"
## [24,] "아파트지대" "광대소각" "사다리평지"
## [25,] "아파트지대" "소로한면" "사다리평지"
## [26,] "시가지주변 야산지대" "중로한면" "사다리완경사"
## [27,] "마을주변 경지정리지대" "세로(가)" "세장형평지"
## [28,] "순수 경지정리지대" "세로(불)" "세장형평지"
## [29,] "해안 경지정리지대" "세로(가)" "정방형평지"
## [30,] "순수 농촌지대" "세로(가)" "가장형평지"
## [31,] "마을주변 농경지대" "세로(가)" "부정형평지"
## [32,] "지방도주변 농경지대" "세로(불)" "사다리평지"
## [33,] "지방도변 농촌지대" "세로(가)" "사다리평지"
## [34,] "마을주변 농경지대" "세로(불)" "부정형평지"
## [35,] "지방도변 농촌지대" "세로(가)" "사다리평지"
## [36,] "마을주변 농경지대" "세로(가)" "부정형평지"
## [37,] "농촌 취락지대" "소로한면" "사다리평지"
## [38,] "마을주변 농경지대" "세로(가)" "사다리평지"
## [39,] "마을주변 농경지대" "소로각지" "사다리평지"
## [40,] "마을주변 농경지대" "세로(가)" "부정형평지"
## [41,] "마을주변 농경지대" "세로(불)" "부정형완경사"
## [42,] "지방도변 농촌지대" "세로(가)" "사다리평지"
## [43,] "면소재지내 농촌지대" "세로(가)" "세장형평지"
## [44,] "농촌 취락지대" "세로(가)" "사다리평지"
## [45,] "마을주변 농경지대" "맹지" "부정형평지"
## [46,] "농촌 취락지대" "세로(가)" "부정형평지"
## [47,] "마을주변 농경지대" "맹지" "부정형평지"
## [48,] "마을주변 농경지대" "맹지" "가장형평지"
## [49,] "지방도변 농촌지대" "소로각지" "사다리평지"
## [50,] "지방도주변 농경지대" "세로(불)" "부정형평지"
## [51,] "순수 경지정리지대" "세로(가)" "세장형평지"
## [52,] "지방도주변 경지정리지대" "세로(가)" "세장형평지"
## [53,] "순수 경지정리지대" "소로한면" "세장형평지"
## [54,] "지방도주변 경지정리지대" "세로(가)" "세장형평지"
## [55,] "순수 경지정리지대" "세로(불)" "세장형평지"
## [56,] "순수 경지정리지대" "세로(가)" "세장형평지"
## [57,] "순수 농촌지대" "세로(가)" "가장형평지"
## [58,] "순수 경지정리지대" "소로한면" "세장형평지"
## [59,] "마을주변 야산지대" "세로(불)" "부정형완경사"
## [60,] "지방도주변 야산지대" "맹지" "부정형완경사"
## [,11]
## [1,] "자연녹지"
## [2,] "2종일주"
## [3,] "2종일주"
## [4,] "2종일주"
## [5,] "2종일주"
## [6,] "2종일주"
## [7,] "2종일주"
## [8,] "1종일주"
## [9,] "2종일주"
## [10,] "1종일주"
## [11,] "2종일주"
## [12,] "2종일주"
## [13,] "2종일주"
## [14,] "2종일주"
## [15,] "1종일주"
## [16,] "1종일주"
## [17,] "1종일주"
## [18,] "1종일주"
## [19,] "1종일주"
## [20,] "1종일주"
## [21,] "준주거"
## [22,] "2종일주"
## [23,] "2종일주"
## [24,] "3종일주"
## [25,] "자연녹지"
## [26,] "개발제한 / 자연녹지"
## [27,] "농림지역"
## [28,] "농림지역"
## [29,] "농림지역"
## [30,] "생산관리"
## [31,] "생산관리"
## [32,] "농림지역"
## [33,] "계획관리"
## [34,] "보전관리"
## [35,] "계획관리"
## [36,] "생산관리"
## [37,] "계획관리"
## [38,] "계획관리"
## [39,] "계획관리"
## [40,] "계획관리"
## [41,] "생산관리"
## [42,] "계획관리"
## [43,] "계획관리"
## [44,] "생산관리"
## [45,] "생산관리"
## [46,] "계획관리"
## [47,] "생산관리"
## [48,] "보전관리"
## [49,] "계획관리"
## [50,] "계획관리"
## [51,] "농림지역"
## [52,] "농림지역"
## [53,] "농림지역"
## [54,] "농림지역"
## [55,] "농림지역"
## [56,] "농림지역"
## [57,] "농림지역"
## [58,] "농림지역"
## [59,] "보전관리"
## [60,] "보전관리"