试图找出R的波动性,但我的代码赢了';行不通

试图找出R的波动性,但我的代码赢了';行不通,r,finance,yahoo-finance,volatility,R,Finance,Yahoo Finance,Volatility,我使用以下代码来寻找特斯拉的波动性: library(quantmod) library(ggplot2) 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

我使用以下代码来寻找特斯拉的波动性:

library(quantmod)
library(ggplot2)

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
库(quantmod)
图书馆(GG2)

特斯拉您只需将
索引(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
库(ggplot2)
图书馆(quantmod)

特斯拉@OmarCharmingKhodr非常好听。如果它有效,请接受答案,让其他人知道它解决了你的问题(在向上/向下投票下面打勾)