相关性的错误可视化绘图表示

Question

我构建了这段代码来检查比特币和其他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")

Plot result

请问我做错了什么？

Answer 1

变量名需要用反引号括起来。

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

​

​