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

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

통계청의 예측보다 빨리 성장하고 있지만, 빨리 성장하고 있다는 것은 돌려 말하면 속도가 느려질 일이 남아 있다는 것이기 때문에 추세추종의 원칙을 잘 인지하면서 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)

Read more

[책]Reshuffle: Who wins when AI restacks the knowledge economy

[책]Reshuffle: Who wins when AI restacks the knowledge economy

원래는 Amazon에 가서 Personal Knowledge Managment에 관한 책을 사려고 했다. Sketch Your Mind라는 책이었는데, 그 때 이 책 “Reshuffle”을 발견하였다. AI가 어떻게 Knowledge Economy를 흔들 것가? 라는 부제를 훑어보면서 저자가 쓴 다른 책을 보게 되었는데 거기에 내가 좋아했던 책을쓴 저자라는 것을 알게 되었다. 그래서 크게 고민하지 않고 구매를 하고

By Bongho, Lee
[책]올라운드투자, 누군가의 투자일기

[책]올라운드투자, 누군가의 투자일기

“올라운드 투자”라는 제목을 보았을 때는, “올라운드 플레이어”가 생각이 났다. “올라운드”라는 표현을 오랜만에 들어본 까닭이었다. 그럼에도 불구하고 이 책을 고른 것은 저자가 그간 보여준 컨텐츠에 대한 신뢰가 있던 까닭이었다. 컨텐츠를 다양하게 보는 편이지만 깊이가 아주 있지는 않았다. 여기서 깊이라 함은 기존 전문적인 정량적 분석의 내용의 수준을 말하는 것이다.

By Bongho, Lee
내가 놓치고 있던 미래, 먼저 온 미래를 읽고

내가 놓치고 있던 미래, 먼저 온 미래를 읽고

장강명 작가의 책은, 유학시절 읽고 처음이었다. 유학시절 "한국이 싫어서"라는 책은 동기부여가 상당히 되는 책이었다. 한국을 떠나 새로운 정채성을 학생으로서 Build up 해나가고 있던 상황에서 이 책은 제목부터 꽤 솔깃하였다. 물론 결말이 기억날 정도로 인상깊은 책은 아니었지만 말이다. 그렇게 시간이 흘러 장강명 작가의 책은 더 이상 읽지 않던

By Bongho, Lee