[금융투자]SBD 시계열 데이터(10,15,30,60분) 공유

sungkibae (42)in #kr • 7 years ago (edited)

안녕하십니까. 금융과 데이터분석을 좋아(만)하는 배성기입니다!
앞으로 금융과 데이터분석에 관한 글들을 쓸 예정입니다.
팔로우해주시면 감사합니다

찾아보니 SBD는 일별 데이터 밖에 없는 것 같아,
API를 사용해서 정리해서 공유합니다.

혹시나 다른 코인의 데이터가 필요하신분들은 댓글달아주시면
정리해서 올리겠습니다.

일별데이터나 주,월별데이터는
investing.com에 가시면 받으실 수 있습니다.

SBD_KRW(2017/12/05 - 2018/02/15)
다운로드

궁금할지도 모르는 분들을 위한 코드(R)

# call packages
library(jsonlite)

# SBD 유효 거래일
date <- as.vector(read.csv("date.csv",header = F)[,1])

# 가격 크롤링 함수
get_SBD <- function(minutes, count, to){
  url <- paste('https://crix-api-endpoint.upbit.com/v1/crix/candles/minutes/',
               minutes,'?code=CRIX.UPBIT.KRW-SBD&count=',count,
               '&to=',to,'%2000:00:00',sep='')
  DF <- fromJSON(url)
  rownames(DF) <- gsub('T'," ",DF$candleDateTime)
  DF <- DF[,-c(1,2,3,9,10,11)]
  DF <- DF[nrow(DF):1,]
  colnames(DF) <- c("Open","High", "Low", "Close", "Volume")
  return(DF)
}

# FOR문을 통해 지난 가격 데이터 수집
# 10분봉
P_10M <- data.frame()
for (i in 1:length(date)) {
  P_10M <- rbind(P_10M, get_SBD(10,144,date[i]))
}