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())