통계청 음식서비스 및 전자쿠폰 거래액 데이터 수집하기

올해 초 선물하기 서비스 및 음식서비스 시장 성장 추이를 확인하기 위해서 작성했던 코드.

통계청의 예측보다 빨리 성장하고 있지만, 빨리 성장하고 있다는 것은 돌려 말하면 속도가 느려질 일이 남아 있다는 것이기 때문에 추세추종의 원칙을 잘 인지하면서 Soft-Landing을 할 수 있도록 노력해야 겠다.

library(tidyverse)
library(httr)
library(rvest)
library(jsonlite)
library(data.table)

default_url <- 'http://kosis.kr/openapi/statisticsData.do'
before_apikey_url <- '?method=getList&apiKey='
after_apikey_url <- '&format=json&jsonVD=Y&userStatsId=sensui/101/DT_1KE10041/2/1/'
search_period_header <- '&prdSe=M&newEstPrdCnt=100'

e_coupon_market_url <- str_c(default_url,before_apikey_url,Sys.getenv('KOSIS_API_KEY'),after_apikey_url,'20200330144016_1',search_period_header)
food_service_market_url <- str_c(default_url,before_apikey_url,Sys.getenv('KOSIS_API_KEY'),after_apikey_url,'20200330144016_2',search_period_header)
 
데이터추출 
e_coupon_market_res <- GET(e_coupon_market_url) #명목
print(e_coupon_market_res)

food_service_market_res <- GET(food_service_market_url) #명목
print(food_service_market_res)

#데이터 변환
e_coupon_market_json <- e_coupon_market_res %>% content(as = 'text', encoding = 'UTF-8') %>% fromJSON() 
food_service_market_json <- food_service_market_res %>% content(as = 'text', encoding = 'UTF-8') %>% fromJSON()


e_coupon_market <- e_coupon_market_json %>% data.table() 
food_service_market <- food_service_market_json %>% data.table()


write.csv(e_coupon_market,'통계청 온라인쇼핑몰 상품 중 전자쿠폰 거래액 추이.csv',row.names = F)
write.csv(food_service_market,'통계청 온라인쇼핑몰 상품 중 음식서비스 거래액 추이.csv',row.names = F)