Неправильное визуальное представление корреляции - PullRequest
Новая
       7

Неправильное визуальное представление корреляции

4 голосов
/ 28 марта 2020

Я построил этот код, чтобы проверить корреляцию между Bitcoin и другими altCoins, данные таблицы работают нормально, моя единственная проблема - когда я пытаюсь построить результат, чтобы получить визуальное представление, я получаю следующий результат: 

library(tidyverse)
library(tidyquant)
library(timetk)
library(tibbletime)
library(corrr)

symbols <- c("BTC-USD","ETH-USD","TRX-USD","EOS-USD","ADA-USD")

prices <- getSymbols(symbols, 
                     src = 'yahoo', 
                     from = "2019-09-01",
                     to = "2020-03-24",
                     auto.assign = TRUE, 
                     warnings = FALSE) %>% 
  map(~Ad(get(.))) %>% 
  reduce(merge) %>%
  `colnames<-`(symbols)

prices_monthly <- to.monthly(prices, indexAt = "last", OHLC = FALSE)

prices_monthly %>% correlate() %>% focus('BTC-USD') %>%
  ggplot(aes(x = rowname, y = 'BTC-USD')) +
  geom_bar(stat = "identity") +
  ylab("Correlation with BTC-USD") +
  xlab("Variable")

Результат сюжета

Что я сделал не так, пожалуйста?

1 Ответ

2 голосов
/ 28 марта 2020

Вам необходимо использовать обратные пометки вокруг имени переменной. 

prices_monthly %>% correlate() %>% focus('BTC-USD') %>%
  ggplot(aes(x = rowname, y=`BTC-USD`)) +  # <- Here
  geom_bar(stat="identity") +
  ylab("Correlation with BTC-USD") +
  xlab("Variable")

enter image description here

...