(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.
- Odată cu creșterea mișcării prețurilor Bitcoin, scăderea ETF -ului Global Blockchain ETF a fost decolorată și s -a mutat în faza de consolidare.
- Dacă veștile bune provin din discuțiile despre tranzacțiile comerciale dintre SUA și China, creșterea va veni mai devreme decât se crede.
Cod sursă:
#https://x.com/data_geeek/status/1915042993725128710
library(tidyverse)
library(tidyquant)
#Invesco CoinShares Global Blockchain UCITS ETF (BCHN.MI)
df_bchn <-
tq_get("BCHN.MI")
#Bollinger Bands
df_bchn %>%
filter(date >= last(date) - months(36)) %>%
arrange(date) %>%
ggplot(aes(x = date,
y = close,
open = close,
high = close,
low = close,
close = close)) +
geom_bbands(ma_fun = SMA,
fill = "purple",
sd = 2,
n = 20) +
geom_candlestick(aes(open = open,
high = high,
low = low,
close = close,
colour_up = "limegreen",
colour_down = "black",
fill_up = "limegreen",
fill_down = "black")) +
scale_y_continuous(labels = scales::label_currency(prefix = "€"),
limits = c(65,125)) +
coord_x_date(xlim = c("2025-01-01","2025-04-17")) +
scale_x_date(breaks = seq(make_date(2025,1,1),
make_date(2025,4,22),
by = "month"),
labels = scales::label_date("%b"),
expand = expansion(mult = c(0, .05))) +
labs(title = "Invesco CoinShares Global Blockchain ETF",
x = "",
y = "",
subtitle = "Bollinger Bands applied with SMA-20") +
theme_minimal(base_family = "Roboto Slab") +
theme(panel.grid = element_blank(),
panel.grid.minor.y = element_line(linetype = "dashed", color = "gray"),
panel.grid.minor.x = element_line(linetype = "dashed", color = "gray"),
panel.grid.major.x = element_line(linetype = "dashed", color = "gray"),
panel.grid.major.y = element_line(linetype = "dashed", color = "gray"),
axis.text = element_text(face = "bold", size = 18),
#axis.text.x = element_text(angle = 60, hjust = 1, vjust = 1),
plot.title = ggtext::element_markdown(face = "bold",size = 20),
plot.subtitle = ggtext::element_markdown(face = "bold", size = 18),
plot.background = element_rect(fill = "azure", color = "azure"),
legend.position = "none")
