R图表RollingPerformance股票价格无法输出正确的y轴

编程问答 2022-06-06

问题描述

这是我读取一堆ETF的代码。我尝试使用chart.RollingPerformance返回ETF，但似乎无法输出具有正确y轴的显示？

我用这些读取数据：

mystocks <- new.env(hash=TRUE)
getSymbols(c("QQQ","XBI","VYM","VOO"),env=mystocks,from ="2016-01-04",to ="2020-10-22")
etf <- do.call(cbind,eapply(mystocks,Cl))

str(etf)
head(etf)

An ‘xts’ object on 2016-01-04/2020-10-21 containing:
  Data: num [1:1210,1:4] 184 185 182 178 176 ...
 - attr(*,"dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:4] "VOO.Close" "QQQ.Close" "XBI.Close" "VYM.Close"
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
List of 2
 $ src    : chr "yahoo"
 $ updated: POSIXct[1:1],format: "2020-10-23 15:38:16"

           VOO.Close QQQ.Close XBI.Close VYM.Close
2016-01-04    184.31    109.50     67.83     65.95
2016-01-05    184.64    109.31     67.22     66.28
2016-01-06    182.30    108.26     64.35     65.41
2016-01-07    177.86    104.87     61.82     64.00
2016-01-08    175.97    104.01     60.51     63.28
2016-01-11    175.99    104.33     57.14     63.35

我用以下代码进行绘图。我已附上图片以供参考。

etf_returns_discrete = Return.calculate(etf,method = c("discrete"))
etf_returns_log = Return.calculate(etf,method = c("log"))

charts.RollingPerformance(etf_returns_discrete,Rf=.03/12,main="Rolling 12-Month Performance",legend.loc="topleft")

Here is the link to the photo

提前谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

financeggplot2performanceanalyticsquantmodrr