Detectarea anomaliei S&P 500

URMĂREȘTE-NE
16,065FaniÎmi place
1,142CititoriConectați-vă

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

Dominic Botezariu
Dominic Botezariuhttps://www.noobz.ro/
Creator de site și redactor-șef.

Cele mai noi știri

Pe același subiect

LĂSAȚI UN MESAJ

Vă rugăm să introduceți comentariul dvs.!
Introduceți aici numele dvs.