仮想通貨の勢力図をRを使って可視化する
今日は少し脱線して、仮想通貨情勢をRで調べてみる。
この記事を見ながら、自分で実装してみた。
今回、使うのは3つのパッケージ。
元記事にあったとおり、coinmarketcaprで仮想通貨のデータをとってきて、treemapで可視化。
米ドルではなく日本円で計算してみるため、quantmod packageを使って、ドル円データを引っ張ってくる。
良い感じに出来た(参考までに、図は、ブログ更新時点のもの)。
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')