설치

crypto2 패키지는 현재(2020-08-20) CRAN에 정식 등록되어 있기 때문에 install.packages()를 사용하여 간단히 설치가 가능하다.

if (!require(crypto2)) {
  install.packages('crypto2')
  library(crypto2)
}

암호 화페 리스트 가져오기

앞서 설명했듯이 crypto2는 https://coinmarketcap.com/의 정보를 가져온다. 이 정보중에 가장 기본적인 것이 이 사이트에서 제공하는 암호화폐의 리스트를 알아보는 것일 것이다. CMC에서 제공하는 암호화폐의 종류는 crypto_list()를 사용하여 가져올 수 있다. crypto_list()로 가져올수 있는 정보는 id, name, symbol 등 8개의 정보이고 이들은 tibble 형태로 반환된다.

list_crypto <- crypto_list(only_active=TRUE)

glimpse(list_crypto)

## Rows: 9,662
## Columns: 8
## $ id                    <int> 1, 2, 3, 4, 5, 6, 8, 10, 13, 16, 18, 25, 35, 37,~
## $ name                  <chr> "Bitcoin", "Litecoin", "Namecoin", "Terracoin", ~
## $ symbol                <chr> "BTC", "LTC", "NMC", "TRC", "PPC", "NVC", "FTC",~
## $ slug                  <chr> "bitcoin", "litecoin", "namecoin", "terracoin", ~
## $ rank                  <int> 1, 21, 664, 1763, 744, 2394, 1391, 1991, 1708, 7~
## $ is_active             <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ~
## $ first_historical_data <date> 2013-04-28, 2013-04-28, 2013-04-28, 2013-04-28,~
## $ last_historical_data  <date> 2022-08-20, 2022-08-20, 2022-08-20, 2022-08-20,~

위의 결과에서 보이는 바와 같이 현재 CMC에서 제공하는 암호화폐 정보 중 현재 거래되고 있는 암호화폐 총 9,660개의 정보를 가져온다.

이중 ’Bitcoin’과 ’Dogecoin’의 정보는 다음과 같다.

list_crypto |> filter(name %in% c('Bitcoin', 'Dogecoin'))

암호 화페 세부 정보 가져오기

CMC에서 제공하는 암호화폐의 종류를 가져왔으니 이제 분석 대상 암호 화폐의 세부 정보를 가져와야 한다. 특정 암호 화폐의 세부 정보를 가져오기 위해서는 crypto_info()를 사용한다. crypto_info()는 crypto_list()에서 가져온 데이터 중 분석 대상인 데이터에 대한 리스트를 매개변수로 전달하면 해당하는 암호 화폐에 대한 정보를 가져온다.

info_crypto <- crypto_info(list_crypto |> filter(name %in% c('Bitcoin', 'Dogecoin')), finalWait=FALSE)

## > Scraping crypto info
## Scraping  https://web-api.coinmarketcap.com/v1/cryptocurrency/info?id=1,74  with  64  characters!
## > Processing crypto info
## > Sleep for 60s before finishing to not have next function call end up with this data!

glimpse(info_crypto)

## Rows: 2
## Columns: 19
## $ id                               <int> 1, 74
## $ name                             <chr> "Bitcoin", "Dogecoin"
## $ symbol                           <chr> "BTC", "DOGE"
## $ category                         <chr> "coin", "coin"
## $ description                      <chr> "## What Is Bitcoin (BTC)?\n\nBitcoin~
## $ slug                             <chr> "bitcoin", "dogecoin"
## $ logo                             <chr> "https://s2.coinmarketcap.com/static/~
## $ subreddit                        <chr> "bitcoin", "dogecoin"
## $ notice                           <chr> "", ""
## $ date_added                       <chr> "2013-04-28T00:00:00.000Z", "2013-12-~
## $ twitter_username                 <chr> "", "dogecoin"
## $ is_hidden                        <int> 0, 0
## $ date_launched                    <lgl> NA, NA
## $ self_reported_circulating_supply <lgl> NA, NA
## $ self_reported_market_cap         <lgl> NA, NA
## $ tags                             <list> [<tbl_df[28 x 1]>], [<tbl_df[8 x 1]>]
## $ self_reported_tags               <lgl> NA, NA
## $ urls                             <list> [<tbl_df[10 x 2]>], [<tbl_df[12 x 2]>~
## $ platform                         <lgl> NA, NA

crypto_info()의 결과로 가져오는 정보는 총 19개의 열을 가진 tibble 객체이다. 이 객체의 열 중 2개는 중첩된 tibble을 포함한다.

중첩된 tibble은 다음과 같이 unnest()를 사용하면 정보를 확인할 수 있다.

info_crypto |> select(name, tags) |> unnest(tags) |> head()

info_crypto |> select(slug, urls) |> unnest(urls) |> head()

암호 화페 가격 가져오기

암호 화폐를 분석하기 위해서 가장 필요한 것이 암호 화폐의 가격일 것이다. 이 데이터는 당연히 시계열 데이터로 다운로드 될 것이다.

경축! 아무것도 안하여 에스천사게임즈가 새로운 모습으로 재오픈 하였습니다.
어린이용이며, 설치가 필요없는 브라우저 게임입니다.
https://s1004games.com

암호 화폐 가격 데이터를 가져오기 위해서는 crypto_history()를 사용한다. 여기서 가져오는 가격 정보는 주식 정보와 유사한 시가(Open), 고가(High), 저가(Low), 종가(Close)와 이 가격에 사용된 화폐, 거래량 등이다. 주식과 달리 암호 화폐는 장의 시작과 종료가 없기 때문에 CMC에서 측정하는 OHLC는 매일의 시작(0시 0분 0초)과 매일의 끝(23시 59분 59초)을 기준으로 산출된다.

hist_crypto <- crypto_history(list_crypto, limit=3, start_date="20220101", end_date="20220820", finalWait=FALSE)

## > Scraping historical crypto data
## > Processing historical crypto data

crypto_history()로 가져오는 가격 데이터의 간격은 매 1일 간격으로 가져온다. 만약 이 간격을 조절하기 위해서는 ‘interval’ 매개변수를 사용한다. 다음은 주 단위로 가격정보를 가져오는 코드이다.

hist_crypto_weekly <- crypto_history(list_crypto, limit=3, start_date="20220101", end_date="20220820", finalWait=FALSE, interval ="weekly")

## > Scraping historical crypto data
## > Processing historical crypto data

crypto_history()에서의 암호 화폐 가격은 기본적으로 미국 달러(USD)로 설정되어 있다. 만약 이 통화를 다른 통화로 바꾸려면 ‘convert’ 매개변수를 사용한다. ’convert’에서 하나 이상의 통화로 변환하기 위해서는 콤마(,)를 사용하여 통화의 이름을 명기해주면 각각의 통화로 변환된 행들이 추가되어 변환된다.

hist_crypto <- crypto_history(list_crypto, convert = 'EUR, KRW', limit=3, start_date="20220101", end_date="20220820", finalWait=FALSE)

## > Scraping historical crypto data
## > Processing historical crypto data

거래소 리스트와 정보

crypto2에서는 암호 화폐 자체의 정보외에 거래소에 대한 정보를 제공한다. exchange_list()를 사용하면 암호 화폐를 거래하는 거래소 리스트를 가져오고 exchange_info()는 거래소의 수수료나 거래량 등의 상세 정보를 가져올 수 있다.

list_exchanges <- exchange_list(only_active=TRUE)

list_exchanges |> head()

info_exchange <- exchange_info(list_exchanges |> filter(name %in% c('Upbit', 'Bithumb', 'Korbit', 'Coinone')), finalWait=FALSE)

## > Scraping exchange info
## Scraping exchanges from  https://web-api.coinmarketcap.com/v1/exchange/info?id=174,194,200,351  with  69  characters!
## > Processing exchange info

• General Inquiry: info@bithumbcorp.com
• Listing Inquiry: listing@bithumbcorp.com
• Partnerships: partnership@bithumbcorp.com
• Medium: https://medium.com/bithumb-official-blog https://s2.coinmarketcap.com/static/img/exchanges/64x64/200.png 2014-01-01T00:00:00.000Z 0 NA 0 0 600960260 2022-08-20 16:35:16 381684 NA twitter , chat , website , fee , blog , https://twitter.com/BithumbOfficial , https://t.me/BithumbExchange , https://www.bithumb.com/ , https://en.bithumb.com/customer_support/info_fee, https://blog.naver.com/bithumb_official NA KRW
  351 351 Upbit upbit NA https://s2.coinmarketcap.com/static/img/exchanges/64x64/351.png 2017-10-24T00:00:00.000Z 0 NA 0 0 1509503596 2022-08-20 16:35:16 1635996 NA twitter , chat , website , fee , https://twitter.com/upbitglobal , https://pf.kakao.com/_DWxgVxl , https://upbit.com/ , https://upbit.com/service_center/guide NA KRW

각각 거래소의 수수료와 거래량은 다음과 같이 알아볼 수 있다.

info_exchange |> select(name, contains("fee"), contains("spot"))