[R] 카카오 API를 사용한 주소/위경도 추출

API Key 세팅

우선 다음과 같이 카카오 에서 발급받은 REST API 키를 다음과 같이 지정해주도록 하자.

api_key <- "api key 입력"

2-1. 위경도 추출 함수

위 방법은 통해 함수를 생성해주자. 함수를 생성해서, 나중에도 자주 쓸수 있도록 하기 위함이다. GET()함수를 통해 얻은 결과를 data_list로 지정 했으며 이에 대한 결과를 주소와, 위도, 경도를 출력하도록 함수를 생성해두었다.

# 지리정보 API를 사용한 주소에서 위경도 추출
addr_lat_lon_fun <- function(addr) {
  data_list <-
    GET(url = 'https://dapi.kakao.com/v2/local/search/address.json',
        query = list(query = addr),
        add_headers(Authorization = paste0("KakaoAK ", api_key))) %>% 
    content(as = 'text') %>% 
    fromJSON()
  
  
  lon_lat_df <- tibble(주소 = addr, 
                         long = as.character(data_list$documents$x), 
                         lat = as.character(data_list$documents$y))
  
  return(lon_lat_df)
}

이렇게 만든 addr_lat_lon_fun()함수를 통해 남산의 위경도틀 추출하면 다음과 같은 결과가 나오게 된다.

addr_lat_lon_fun("서울 중구 회현동1가")

## # A tibble: 1 x 3
##   주소                long             lat             
##   <chr>               <chr>            <chr>           
## 1 서울 중구 회현동1가 126.981204133005 37.5555892070291

3-1. 주소 추출 함수

이번에도 함수를 생성해주자. 함수를 생성해서, 나중에도 자주 쓸수 있도록 하기 위함이다. GET()함수를 통해 얻은 결과를 data_list로 지정 했으며 이에 대한 결과를 위도, 경도, 수도, 구 동을 출력하도록 함수를 생성해두었다.

addr <- "서울시"
# 지리정보 API를 사용한 위경도 추출
GET(url = 'https://dapi.kakao.com/v2/local/search/address.json',
    query = list(query = addr),
    add_headers(Authorization = paste0("KakaoAK ", "2ecacbafd523802f293b245103346b06"))) %>% 
  content(as = 'text') %>% 
  fromJSON()

## $documents
##   address.address_name address.b_code address.h_code address.main_address_no
## 1                 서울     1100000000     1100000000                        
##   address.mountain_yn address.region_1depth_name address.region_2depth_name
## 1                   N                       서울                           
##   address.region_3depth_h_name address.region_3depth_name
## 1                                                        
##   address.sub_address_no        address.x       address.y address_name
## 1                        126.978652258309 37.566826004661         서울
##   address_type road_address                x               y
## 1       REGION           NA 126.978652258309 37.566826004661
## 
## $meta
## $meta$is_end
## [1] TRUE
## 
## $meta$pageable_count
## [1] 1
## 
## $meta$total_count
## [1] 1

# 지리정보 API를 사용한 위경도 추출
Lat_lon_fun <- function(addr) {
  data_list <-
    GET(url = 'https://dapi.kakao.com/v2/local/search/address.json',
        query = list(query = addr),
        add_headers(Authorization = paste0("KakaoAK ", "2ecacbafd523802f293b245103346b06"))) %>% 
    content(as = 'text') %>% 
    fromJSON()
  
  
  lon_lat_df <- tibble(주소 = addr, 
                         long = as.numeric(data_list$documents$x), 
                         lat = as.numeric(data_list$documents$y))
  
  return(lon_lat_df)
}

# 지리정보 API를 사용한 위경도에서 주소 추출 함수
Lat_lon_to_address_fun <- function(long, lat) {
  data_list <-
    GET(url = 'https://dapi.kakao.com/v2/local/geo/coord2regioncode.json',
        # query = list(x = long, y= lat),
        query = list(x = long, y= lat),
        add_headers(Authorization = paste0("KakaoAK ", api_key))) %>%
    content(as = 'text') %>%
    fromJSON()
  
  lon_lat_df <- tibble(
    long = long,
    lat = lat,
    주소 = data_list$documents$address_name,
    구 = data_list$documents$region_2depth_name,
    동 = data_list$documents$region_3depth_name
  ) %>%
    head(1)
  
  return(lon_lat_df)
}

이렇게 만든 Lat_lon_to_address_fun()함수를 통해 남산의 위경도틀 추출하면 다음과 같은 결과가 나오게 된다.

Lat_lon_to_address_fun(126.981204133005, 37.5555892070291)

## # A tibble: 1 x 5
##    long   lat 주소                      구    동       
##   <dbl> <dbl> <chr>                     <chr> <chr>    
## 1  127.  37.6 서울특별시 중구 회현동1가 중구  회현동1가