您好,我尝试绘制烛台图 + 滚动平均线。
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) 可以替换为 forecast::ma。
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()
关于dygraphs - 如何在 dygraphs 中绘制烛台 + 滚轴 [r],我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/51235980/