library(Quandl)
library(tidyverse)
frmData <- Quandl("FRED/GDP")
head(frmData)
ggplot(data = frmData, aes(x = Date, y = Value)) + geom_line(color = "red")