(Acest articol a fost publicat pentru prima dată pe DateAgeeekși a contribuit cu drag la R-Bloggers). (Puteți raporta problema despre conținutul de pe această pagină aici)
Doriți să vă împărtășiți conținutul pe R-Bloggers? Faceți clic aici dacă aveți un blog sau aici dacă nu.
Deutsche Bank Research Institute a declarat în raportul său publicat că Bitcoin a suferit un proces similar cu ceea ce a experimentat Gold în ultimii 100 de ani.
Potrivit raportului, adoptarea din ce în ce mai mare a Bitcoin și volatilitatea redusă o pot transforma într -un activ de rezervă pe care băncile centrale le -ar putea deține până în 2030.
Graficul de incertitudine de mai jos confirmă analiza menționată mai sus. Mai ales în ultimii doi ani, aurul și Bitcoin au convergut în ceea ce privește distribuirea lunară a returnărilor.
Diagramă Cod:
library(tidyverse)
library(tidyquant)
library(ggdist)
#Gold
df_gold <-
tq_get("GC=F") %>%
tq_transmute(select = close,
mutate_fun = periodReturn,
period = "monthly",
col_rename = "gold_returns") %>%
drop_na()
#Bitcoin
df_btc <-
tq_get("BTC-USD") %>%
tq_transmute(select = close,
mutate_fun = periodReturn,
period = "monthly",
col_rename = "btc_returns") %>%
drop_na()
#Merging the datasets
df_merged <-
df_gold %>%
left_join(df_btc) %>%
filter(date >= as.Date("2020-01-01")) %>%
drop_na() %>%
pivot_longer(-date) %>%
mutate(year = year(date) %>% as_factor())
#Uncertainty Distribution Plot
df_merged %>%
ggplot(aes(y = value,
x = year,
fill = name)) +
stat_slab(aes(thickness = after_stat(pdf*n)), scale = 0.7) +
stat_dots(side = "bottom",
scale = 0.7,
slab_linewidth = NA) +
scale_y_continuous(labels = scales::percent) +
scale_fill_manual(values = c("darkorange","goldenrod")) +
labs(x = "",
y = "",
fill = "",
title = "Comparison of Monthly Returns: Gold vs. Bitcoin") +
theme_minimal(base_family = "Roboto Slab",
base_size = 20) +
theme(axis.text = element_text(face = "bold"),
plot.title = ggtext::element_markdown(size = 18,
hjust = 0.5,
face = "bold"),
axis.text.x = element_text(angle = 45,
hjust = 1,
vjust = 1),
legend.position = "none",
plot.background = element_rect(fill = "azure", color = "azure"),
panel.background = element_rect(fill = "snow", color = "snow"))
