bitcoin no r Archives - Análise Macro

E o bitcoin continua surpreendendo, hein? Colocamos abaixo novamente como baixar dados da criptomoeda com o R.

library(Quandl)
library(ggplot2)
library(forecast)
library(scales)

btc = Quandl("BCHARTS/ROCKUSD", type='xts')

bitcoin = btc$Close
bitcoin = apply.monthly(bitcoin, FUN=mean)

time = seq(as.Date('2016-01-01'), as.Date('2017-11-01'), by='1 month')

data = data.frame(time=time, bitcoin=tail(bitcoin[,2],12+11))

ggplot(data, aes(x=time, y=Close))+
 geom_bar(stat='identity', size=.7, colour='darkblue',
 fill='darkblue')+
 geom_text(aes(label=round(Close,0)), size=2.8, 
 hjust=0.5, vjust=-0.5, shape=21, colour="red")+
 scale_x_date(breaks = date_breaks("1 months"),
 labels = date_format("%m/%Y"))+
 theme(axis.text.x=element_text(angle=45, hjust=1))+
 xlab('')+ylab('')+
 labs(title='Bitcoin vs. USD ',
 subtitle='(Fechamento Diário mensalizado)',
 caption='Fonte: analisemacro.com.br com dados Quandl R API.')

Onde vai para o bitcoin? 🙂

Vou participar de dois eventos no mês que vem sobre criptomoedas e, portanto, estou lendo um pouco mais sobre o assunto. Nunca tive grande interesse pelo tema (sim, eu não sou austríaco), mas é sempre bom a gente expandir nosso conhecimento, não é mesmo? E qual a melhor forma de começar? Sim, tendo acesso aos dados...

library(Quandl)
library(ggplot2)
library(forecast)
library(scales)
btc = Quandl("BCHARTS/ROCKUSD", type='xts')
autoplot(btc[,4])+
 annotate("rect", fill = "gray", alpha = 0.5, 
 xmin = as.Date('2016-08-01'), 
 xmax = as.Date('2017-08-20'),
 ymin = -Inf, ymax = Inf)+
 geom_line(size=.1, colour='darkblue')+
 scale_y_discrete(limits=c(0,500,1000,1500,2000,2500,3000,3500,4000,
 4500))+
 scale_x_date(breaks = date_breaks("3 months"),
 labels = date_format("%b/%Y"))+
 theme(axis.text.x=element_text(angle=45, hjust=1),
 plot.title = element_text(size=11, face='bold'),
 plot.caption = element_text(size=9),
 axis.title.y = element_text(size=9))+
 xlab('')+ylab('')+
 labs(title='Bitcoin vs. USD (Fechamento Diário)',
 subtitle='Fonte: Quandl R API')

O gráfico, como se pode ver no código, está baseado no Quandl, mas há um pacote específico chamado Rbitcoin. Por enquanto é isso. Ao longo das próximas semanas falo mais de bitcoin por aqui! 🙂