통계청 음식서비스 및 전자쿠폰 거래액 데이터 수집하기
올해 초 선물하기 서비스 및 음식서비스 시장 성장 추이를 확인하기 위해서 작성했던 코드.
통계청의 예측보다 빨리 성장하고 있지만, 빨리 성장하고 있다는 것은 돌려 말하면 속도가 느려질 일이 남아 있다는 것이기 때문에 추세추종의 원칙을 잘 인지하면서 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)
