Yoshi Nishikawa Blog

医学となにかのインタラクティブ

仮想通貨の勢力図をRを使って可視化する

今日は少し脱線して、仮想通貨情勢をRで調べてみる。

この記事を見ながら、自分で実装してみた。

今回、使うのは3つのパッケージ。

元記事にあったとおり、coinmarketcaprで仮想通貨のデータをとってきて、treemapで可視化。

米ドルではなく日本円で計算してみるため、quantmod packageを使って、ドル円データを引っ張ってくる。

良い感じに出来た(参考までに、図は、ブログ更新時点のもの)。

f:id:yoshi_nishikawa:20171029101929p:plain

library(coinmarketcapr)
market_today <- get_marketcap_ticker_all()

#install.packages("quantmod")
library(quantmod)
from <- c("USD")
to <- c("JPY")
usdjpy<-getQuote(paste0(from, to, "=X"))
usdjpy$Last

library(treemap)
df1 <- na.omit(market_today[,c('id','market_cap_usd')])
df1$market_cap_usd <- as.numeric(df1$market_cap_usd)*as.numeric(usdjpy$Last)
colnames(df1) <- c("id", "market_cap_jpy")
df1$formatted_market_cap <-  paste0(df1$id,'\n','¥',format(df1$market_cap_jpy,big.mark = ',',scientific = F, trim = T))
treemap(df1, index = 'formatted_market_cap', vSize = 'market_cap_jpy', title = 'Cryptocurrency Market Cap', fontsize.labels=c(12, 8), palette='RdYlGn')