R Shiny：添加＆＃34;％＆gt;％＆＃34;在循环中以编程方式的东西

Question

我有一个dygraph图，想要以编程方式添加几个事件dyLimit行。 server.R中的标准语法是：

dygraph(MSFT[, 4], main = "Microsoft Share Price") %>% 
  dySeries("MSFT.Close", label = "MSFT") %>%
  dyLimit(as.numeric(MSFT[1, 4]), color = "red")

那么如何在循环中添加这些dyLimits呢？

Answer 1

您可以创建一个包含图表的varibale，并在for循环中逐个添加dyLimits，这是一个示例（基于this one）：

library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
graph <- dygraph(lungDeaths) 
for (i in 1:5){
  graph <- graph %>% dyLimit(500*i)
}
graph