试图在R中发现波动性，但我的代码无法正常工作

Question

我正在使用以下代码来查找特斯拉的波动性：

Tesla <-  getSymbols("TSLA", src = "yahoo", from = "2014-10-01", to = "2019-11-25", auto.assign = FALSE)

vol.tesla <- volatility(Tesla[ ,6])


graf_vol_tesla <- ggplot(vol.tesla, aes(x = index(vol.tesla), y = vol.tesla))+ geom_line(color = "violetred4") +
  ggtitle("volatility Tesla") + xlab("Date") + ylab("Volatility") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_x_date(date_labels = "%b %y", date_breaks = "9 months")

graf_vol_tesla

但是，它作为输出而不是图像。有人知道如何解决吗？预先感谢！

'不知道如何为xts / zoo类型的对象自动选择比例。默认为连续。错误：输入无效：date_trans仅适用于Date类的对象'

Answer 1

您只需要将您的index(vol.tesla)转换为有效的日期对象，以便ggplot可以绘制它。使用as.Date进行如下操作：

library(ggplot2)
library(quantmod)

Tesla <-  getSymbols("TSLA", src = "yahoo", from = "2014-10-01", to = "2019-11-25", auto.assign = FALSE)

vol.tesla <- volatility(Tesla[ ,6])

graf_vol_tesla <- ggplot(vol.tesla, aes(x = as.Date(index(vol.tesla)), 
                                        y = vol.tesla))+ geom_line(color = "violetred4") +
  ggtitle("volatility Tesla") + xlab("Date") + ylab("Volatility") +
  theme(plot.title = element_text(hjust = 0.5))+
  scale_x_date(date_labels = "%b %y", date_breaks = "9 months")


graf_vol_tesla