R을 활용한 가상화폐 마켓캡(시가총액) 그려보기

aka : ADA 로 1통닭 먹기

1. 오늘 비트코인 조정장에서 눈에 띄었던 현상은 바로 ADA 입니다.
   우선 ADA는 일본이 사랑하는 코인 이라는 별명이 있죠.

2. 오늘 단기 급등의 원인은 ADA 가 바이낸스 오케이EX 와 더불어 3대 거래소로 유명한 후오비에서 설립한 한국 법인 후오비코리아에 상장했다는 소식 때문이었습니다.
   https://www.huobi.co.kr/ko-KR/

혹시나 Cardano 라는 이름이 낯선 분들이 있으실까봐...

카르다노 (Cardano)는 기존 암호화폐들의 장점은 흡수하고 단점은 보완하여 암호화폐의 설계와 개발 과정을 혁신하는 것을 목표로 2015년에 출범한 탈중앙화된 스마트컨트랙트 플랫폼 프로젝트로 카르다노 플랫폼에서 사용되는 암호화폐의 이름을 에이다 (ADA)라고 합니다.

한마디로 프로젝트 이름 카르다노, 화폐 이름 에이다 인거죠!

저는 오늘 R을 활용한 코인 시총 분석을 통해 ADA의 마켓캡을 측정해 보도록 하겠습니다.

우선 필요한 패키지 부터 정리하겠습니다.

install.packages("coinmarketcapr")
install.packages("treemap")

라이브러리를 불러옵니다.
library(coinmarketcapr)
library(treemap)

결측값을 제거함과 동시에데이터 프레임 변수를 지정합니다.
df1 <- na.omit(market_today[,c('id','market_cap_usd')])

usd 숫자 값을 numeric 으로 변환 하고 포멧을 정리합니다.
df1$market_cap_usd <- as.numeric(df1$market_cap_usd)
df1$formatted_market_cap <- paste0(df1$id,'\n','$',format(df1$market_cap_usd,big.mark = ',',scientific = F, trim = T))

트리맵 함수에 변수를 할당하고 폰트사이즈, 색상을 넣어줍니다.
treemap(df1, index = 'formatted_market_cap', vSize = 'market_cap_usd', title = 'Cryptocurrency Market Cap', fontsize.labels=c(12, 8), palette='RdYlGn')

이후 아래와 같은 모양에 가상화폐 마켓캡을 완성하게 됩니다.

저도 아직 배우는 중이라 부족한 점이 많지만 쥐똥만큼 이라도 아는 정보를 공유하고자 이 글을 올렸습니다.

주식이던 코인이던 시가총액이 적정 이상은 되어야 투자 대상 종목으로 안전하다고 합니다.
앞으로 데이터를 통한 코인분석을 통해 독자들의 투자에 조금이나마 도움이 되고자 합니다.