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