Amazon vs. MicroStrategy | R-bloggeri

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

(Acest articol a fost publicat pentru prima dată pe DataGeeekși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)


Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.

Conform rezultatelor simulării, MicroStrategy a avut un trend pozitiv cu volatilitate mai mică în ultimii zece ani în comparație cu AMAZON, care a avut un trend negativ cu volatilitate ridicată.

Cod sursă:

library(tidyverse)
library(tidyquant)

df_port <- 
  tq_get(c("AMZN","MSTR")) %>% 
  group_by(symbol) %>%
  tq_transmute(select     = adjusted, 
               mutate_fun = periodReturn, 
               period     = "yearly", 
               type       = "arithmetic") %>% 
  mutate(date = floor_date(date, "year") %>% year(),
         symbol = case_when(
           symbol == "AMZN" ~ "AMAZON",
           symbol == "MSTR" ~ "MicroStrategy"
         )) %>% 
  group_by(symbol) %>% 
  slice_min(n = -1, order_by = date) %>% 
  ungroup() %>% 
  pivot_wider(names_from = symbol,
              values_from = yearly.returns) 

#Simulation
library(rsample)

set.seed(123)
port_intervals <- 
  reg_intervals(date ~ AMAZON + MicroStrategy, 
                data = df_port,
                type = "percentile",
                keep_reps = TRUE)



#Bootstrap confidence intervals
##https://juliasilge.com/blog/superbowl-conf-int/
port_intervals %>%
  mutate(
    term = str_remove(term, "TRUE"),
    term = fct_reorder(term, .estimate)
  ) %>%
  ggplot(aes(.estimate, term)) +
  geom_vline(xintercept = 0, size = 1.5, lty = 2, color = "gray80") +
  geom_errorbarh(aes(xmin = .lower, xmax = .upper),
                 size = 1.5, alpha = 0.5, color = "midnightblue"
  ) +
  geom_point(size = 3, color = "midnightblue") +
  labs(
    x = "",
    y = "",
    subtitle = "Trends in annual returns for Amazon and MicroStrategyn(from 2015 to 2024)"
  ) +
  theme_minimal(base_family = "Roboto Slab", 
                base_size = 15) +
  theme(
    text = element_text(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.