R에서 google map을 이용하여 신규 커피집을 표시할 수 있다. 먼저 라이브러리 ggmap 을 로드하고, register_google() 함수를 이용하여 발급받은 API를 등록한다. 구글에서 검색해서 개발자로 등록하고, 신용카드 정보 넣으면 API 키를 준다. library('ggmap') register_google(key='구글API') 공공데이터 data.go.kr 사이트에 가서 소상공인진흥공단에서 제공한 파일 중 하나를 다운 받았다. https://www.data.go.kr/dataset/15012005/fileData.do 공공데이터포털 국가에서 보유하고 있는 다양한 데이터를『공공데이터의 제공 및 이용 활성화에 관한 법률(제11956호)』에 따라 개방하여 국민들이 보다 쉽고 용이하게 공유•..
여기에 나와있는 코드를 약간 변형하여 시계열에 마지막 값을 표시하는 것입니다. AER 패키지에 있는 Grundfeld 자료를 불러들입니다. library(tidyverse) library(dplyr) library(AER) data("Grunfeld") a % top_n(1, year) %>% pull(value) ggplot의 보조축을 이용하여 끝 값을 표시하고, 약간의 분식을 하면 아래와 같은 그림을 얻을 수가 있습니다. a %>% select(year, value, firm) %>% ggplot(aes(x = year,y = value,color = firm)) + geom_line() + scale_y_continuous(sec.axis = sec_axis(~ ., breaks = a_ends))..
https://youtu.be/7-WxiEPXqx4
재정정보원 Q/A와 며칠 씨름을 하다가 2019년 예산을 뽑아내는 코드를 완성했다. 아직까지 pIndex는 어떤 변수인지 알 수가 없지만, 어쨋든 중복이 있더라도 주욱 뽑고 중복을 제거하는 방식을 사용하였다. budget % treemap(index = c("OFFC_NM", "PGM_NM"), vSize = "sum", type = "index", palette="RdYlBu", fontsize.labels=c(14,7), border.col=c("black","black"), border.lwds=c(1,0.5) , title = "부처별 예산액") 그러니가 아래와 같은 그림이 나오더라. 한 가지 해결이 안된 문제는 트리맵 크기가 생각보다 작게 만들어지는데 크기 조정하는 방법을 모르겠다. 나중에는 D..
아래에서 설명한대로 열린재정은 재정정보원에서 관리하는데 open API를 사용하기 위해서 전화도 해보고 문의도 해보았는데, 뭐 공공기관 답게 담당자에게 전화 토스 하면서 아무 해결도 되지 않았다. 여하튼, 마구 감으로 대충 URL 형태를 추측해가면서 자료를 추출해보았다. 예산사업을 먼저 추출하였다. 문제는 한 번에 1000개 밖에 추출이 안되던데, 그 이상 추출하는 방법을 모르겠다. 예산사업이 매년 1만개 넘어가는데, 이것 좀 해결되면 좋겠다. 필요한 라이브러리는 적절히 로드하시길. url0 = "http://openapi.openfiscaldata.go.kr/ExpenditureBudgetInit1?" api_key = "Key=(인증키)&" type = "Type=xml&" pIndex = "pInd..
http://www.openfiscaldata.go.kr/portal/main.do 일단 잘 안된다. 아무래도 재정정보를 이용해 뭘 하려는 사람이 거의 없어서 그런지 설명문서도 2015년 것이 최근이고 관리가 잘 안되고 있는 것 같다. URL 예가 나오면 좋은데, 그런 것이 구비가 되어 있지 않다(되어는 있는데 개발자가 용역금액에 불만이 있었었는지 하다 말은 것 같다). 시간은 몇 시간 썼는데, 관측치 5개 짜리 샘플 데이터 끌어다 쓴느데 만족해야겠다. 어쨋든 xml 형태로 샘플데이터를 받고, 아래 게시물에서 구했던 2015년 GDP를 이용한 국가채무비율을 다시 계산하였다. 2018년 국가채무비율은 38.2% 였는데, 바뀐 기준으로는 35.9%까지 내려가더라. url % bind_rows() %>% sp..