Skip to content

Instantly share code, notes, and snippets.

@amrrs
Created January 8, 2018 10:01
Show Gist options
  • Save amrrs/2e39abe72890d8f94e81d2497f90cc0e to your computer and use it in GitHub Desktop.
Save amrrs/2e39abe72890d8f94e81d2497f90cc0e to your computer and use it in GitHub Desktop.
Visualizing Bitcoin Movement Last 31 days
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))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment