米国株式市場の2020年1月1日からの相関構造

米国株式市場の2020年1月1日からの相関構造

すげぇ強かった（おしまい）

• "^DJI" : ダウ平均
• "^RUT": ラッセル指数
• "^GSPC": S&P500
• "^IXIC": ナスダック指数

再現用のCode

library("dplyr")
library("tidyr")
library("stringr")
library("tidyquant")
library("PerformanceAnalytics")
get_from_yahoo <- function(x, range_date){
  # Why max(range_date) +1? because: from <= x < to
  df <- tq_get(x, from = min(range_date), to = max(range_date) + 1)
  dplyr::select(df, symbol, date, adjusted) %>%
    rename(price=adjusted) %>%
    mutate(symbol = str_to_lower(str_replace_all(symbol, "\\^", ""))) %>%
    arrange(date)
}
arithmetic_return <- function(x){
  c(NA, x[-1]/x[-length(x)] - 1)
}
# https://finance.yahoo.com/quote/%5EDJI/
range_date <- c(lubridate::ymd("20200101"), lubridate::ymd("20200818"))
symbols <- c("^DJI", "^RUT", "^GSPC", "^IXIC")
df <- purrr::map_df(symbols, ~ get_from_yahoo(.x, range_date)) %>%
  tidyr::pivot_wider(names_from = symbol, values_from = price) %>%
  arrange(date) %>%
  mutate_at(
    vars(-"date"),
    arithmetic_return
  ) %>%
  na.omit()

chart.Correlation(dplyr::select(df, -date), histogram=TRUE, pch=19)