您好我尝试绘图烛台情节+滚轮平均线。
library(xts)
library(dygraphs)
data(sample_matrix)
m <- tail(sample_matrix, n = 32)
dygraph(m) %>%
dyCandlestick() %>%
dyRoller(showRoller = T, rollPeriod = 5)
这产生:
dyRoller是添加到图表的滚动平均周期文本框。你想要什么是移动的收盘价的平均值。下面是示例代码。功能TTR :: SMA(quantmod)可以与预测::马所取代。
library(dygraphs); library(xts); library(quantmod)
data(sample_matrix)
m <- tail(sample_matrix, n=75)
m <- cbind(m, SMA(m[,4], n=10))
m <- cbind(m, SMA(m[,4], n=20))
colnames(m)[5:6] <- c('SMA10','SMA20')
dygraph(m) %>%
dyCandlestick()