(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.
De la data la care Banca Japoniei (BOJ) a crescut rata dobânzii, se pare că a fost încă testat o anomalie pentru S&P 500, în ciuda strategilor care spun că este supraevaluată.
Cod sursă:
library(tidyverse)
library(tidyquant)
library(timetk)
#S&P 500 (^GSPC)
df_sp500 <-
tq_get("^GSPC")
#Anomaly Plot
df_sp500 %>%
filter(date >= as.Date("2024-01-22")) %>%
anomalize(date, close) %>%
plot_anomalies(date,
.line_size = 1,
.interactive = FALSE,
.title = "Anomaly Chart of the S&P 500") +
scale_x_date(breaks = seq(make_date(2024,1,22),
make_date(2025,1,22),
by = "month"),
labels = scales::label_date("%b'%y")) +
scale_y_continuous(labels = scales::label_currency()) +
geom_vline(xintercept = as.Date("2024-07-31"),
size = 1,
linetype= "dashed",
color = "orange") +
labs(subtitle = "The BoJ increased the interest rate") +
theme_minimal(base_family = "Roboto Slab") +
theme(legend.position = "none",
panel.grid = element_blank(),
axis.text = element_text(face = "bold", size = 16),
axis.text.x = element_text(angle = 60, hjust = 1, vjust = 1),
plot.background = element_rect(fill = "snow", color = "snow"),
panel.grid.major.x = element_line(linetype = "dashed", color = "gray"),
panel.grid.major.y = element_line(linetype = "dashed", color = "gray"),
plot.subtitle = ggtext::element_markdown(size = 18),
plot.title = ggtext::element_markdown(size = 20, face = "bold"))
