Visualizing Bitcoin Movement Last 31 days

coindeskr_last31_btc.R

library(coindeskr) #R-Package connecting to Coindesk API 
library(ggplot2)
library(ggthemes)

#Extracting Bitcoin USD Price for the last 31 days

last31 <- get_last31days_price()

date <- rownames(last31)

ggplot(last31) + geom_smooth(aes(x = date, y = Price, group = 1)) +
  ylab('Price in USD') +
  xlab('Date') +
  ggtitle('Visualizing Bitcoin Movement Last 31 days') +
  theme_solarized() + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1))