(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.
Silver, Nasdaq Blockchain Economy Index, Bitcoin și Ishares Semiconductor ETF sunt întotdeauna considerate corelate între ei de către investitori.
Vom testa această percepție cu Corrr pachet.
#iShares Semiconductor ETF (SOXX)
df_soxx <-
tq_get(x = "SOXX") %>%
select(date, soxx = close)
#Nasdaq Blockchain Economy Index
df_nasdaq_blockchain <-
openxlsx::read.xlsx("https://github.com/mesdi/investingcom/raw/refs/heads/main/nasdaq_blockchain.xlsx",
sheet = "History",
detectDates = TRUE) %>%
as_tibble() %>%
janitor::clean_names() %>%
select(date = trade_date, blcn = index_value)
#Bitcoin
df_btc <-
tq_get("BTC-USD") %>%
select(date, btc = close)
#Merging the datasets
df_merged <-
df_silver %>%
left_join(df_soxx) %>%
left_join(df_nasdaq_blockchain) %>%
left_join(df_btc) %>%
drop_na() %>%
filter(date >= last(date) - months(36))
#Correlation
d <- correlate(df_merged, quiet = TRUE)
d %>%
focus(silver:btc, mirror = TRUE) %>%
fashion()
# term silver soxx blcn btc
#1 silver .78 .89 .89
#2 soxx .78 .85 .80
#3 blcn .89 .85 .97
#4 btc .89 .80 .97
#Network plot
df_merged %>%
correlate() %>%
network_plot(min_cor = .7,
legend = "full")
Percepția comună pare a fi corectă pe baza analizei de corelație, în special între indicele economiei blockchain NASDAQ și Bitcoin.
