Quandl - Financial, Economic and Alternative Data

Data

Datasets

id label html
api Application Programming Interface [html]
BCHARTS Bitcoins [html]
BCHAIN Blockchain [html]
BOE Bank of England [html]
BUNDESBANK Bundesbank [html]
ECB European Central Bank [html]
ECONOMIST The Economist [html]
FRED Federal Reserve Bank Data [html]
MULTPL Multiples [html]

List of variables

BCHARTS

Code
BCHARTS %>%
  group_by(symbol) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
symbol Nobs
BCHARTS/BITSTAMPEUR 1009
BCHARTS/KRAKENUSD 2582

BCHAIN

Code
BCHAIN %>%
  group_by(symbol) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
symbol Nobs
BCHAIN/MKPRU 4422
BCHAIN/MKTCP 4421

BOE

Code
BOE %>%
  group_by(symbol) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
symbol Nobs
BOE/XUDLBK35 4226
BOE/XUDLBK68 3848
BOE/XUDLBK73 3848
BOE/XUDLCDD 11496
BOE/XUDLGBD 11496
BOE/XUDLJYD 11496
BOE/XUDLSFD 11496

BUNDESBANK

Code
BUNDESBANK %>%
  group_by(symbol) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
symbol Nobs
BUNDESBANK/BBEX3_D_ARS_USD_CA_AC_000 4508
BUNDESBANK/BBK01_WT5011 1990
BUNDESBANK/BBK01_WU5007 521
BUNDESBANK/BBK01_WU5009 545
BUNDESBANK/BBK01_WU5012 468

ECB

Code
ECB %>%
  group_by(symbol) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
symbol Nobs
ECB/EURUSD 5494

FRED

Code
FRED %>%
  group_by(symbol) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
symbol Nobs
FRED/DEXBZUS 6389

MULTPL

Code
MULTPL %>%
  group_by(symbol) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
symbol Nobs
MULTPL/SP500_DIV_YIELD_MONTH 1799
MULTPL/SP500_PE_RATIO_MONTH 1800

Different types of bitcoin

Code
BCHARTS %>%
  ggplot() + geom_line(aes(x = date, y = Open, color = symbol)) +
  theme_minimal() + xlab("") + ylab("Bitcoin Price") +
  scale_x_date(breaks ="6 months",
               labels = date_format("%y-%m")) +
  scale_y_continuous(breaks = seq(0, 40000, 5000),
                     labels = dollar_format(ac = 1)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())