Как построить подсвечник + ролик на графике [r]

Question

Привет, я пытаюсь построить график подсвечник + средняя линия ролика.

library(xts)
library(dygraphs)
data(sample_matrix)
m <- tail(sample_matrix, n = 32)

dygraph(m) %>% 
    dyCandlestick() %>% 
    dyRoller(showRoller = T, rollPeriod = 5)

дает это:

То, что я хочу, это график свечей + средняя линия ролика, вот так:

Answer 1

dyRoller - это текстовое поле скользящего среднего периода, добавленное на график. То, что вы хотите, это скользящие средние цены закрытия. Вот пример кода. Функция TTR::SMA (quantmod) может быть заменена на прогноз::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()