Import financial historical data using quandl

### quandl API in r ###
# install.packages("Quandl")
# install Quandl if you have not down it before
library(Quandl)
library(tidyverse)
google_wiki=Quandl("WIKI/GOOGL")
google_wiki$Date=as.Date(google_wiki$Date)
google_wiki%>%ggplot(aes(x=Date))+
  geom_point(aes(y=High),color="red",alpha=0.5,size=0.1)+geom_point(aes(y=Low),color="green",alpha=0.5,size=0.1)+
  labs(title="google historical stock price",ylab="Price",caption="The graph uses data from quandl")

#bitcoin to usd price 
bit_bitfinex=Quandl("BITFINEX/BTCUSD")
bit_bchain=Quandl("BCHAIN/MKPRU")
bit_gdax=Quandl("GDAX/USD")
colnames(bit_gdax)

[1] "Date"   "Open"   "High"   "Low"    "Volume"

colnames(bit_bchain)

[1] "Date"  "Value"

colnames(bit_bitfinex)

[1] "Date"   "High"   "Low"    "Mid"    "Last"   "Bid"    "Ask"   
[8] "Volume"

bit_gdax$Date=as.Date(bit_gdax$Date)
bit_bchain$Date=as.Date(bit_bchain$Date)
bit_bitfinex$Date=as.Date(bit_bitfinex$Date)

# The plot
bit_gdax%>%ggplot(aes(x=Date))+geom_point(aes(y=High),color="red")+
  geom_point(aes(y=Low),color="green")+
  labs(y="Price",title="Bitcoin to USD Price: Daily historical data",captions="Data from quandl")