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] |
Quandl - Financial, Economic and Alternative Data
Data
Datasets
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())