无法在降价上绘制 dygraph答案

【问题标题】：can´t plot dygraph on markdown无法在降价上绘制 dygraph
【发布时间】：2020-09-20 22:06:35
【问题描述】：

我希望在降价文档中使用 dygraph 绘制时间序列。我可以从列表中选择时间序列并使用 plot() 函数绘制它，但它与 dygraph 函数的工作方式不同


library(dplyr)
library(tidyr)
library(dygraphs)
library(tseries)

df <- data.frame(date = c(as.yearmon(2018,1),as.yearmon(2018,1),as.yearmon(2018,2),as.yearmon(2018,2),
                          as.yearmon(2018,1),as.yearmon(2018,1),as.yearmon(2018,2),as.yearmon(2018,2)),                sales = c(1,2,3,4),
                 cat_I = c("drink","drink","food","food","drink","drink","food","food"),
                 cat_II = c("cola","fanta","tomatoes","bananas","cola","fanta","tomatoes","bananas"))

cat <- data.frame(I = c("drink","drink","food","food"),
                  II = c("cola","fanta","tomatoes","bananas"))

ts <- list()

for(s in unique(cat$II)){
  aux <- df %>%  filter(cat_II==s) %>%  
    as.data.frame()
  ts[[s]] <- ts(aux$sales,start=c(2018,1),frequency = 12)
}


selectInput("I", label = "category_I:",
           choices = names(ts))



renderPlot({
  plot(ts[[input$I]])
  
})

这很好用，但是当我尝试使用 dygraph() 绘图时它不起作用

renderPlot({
  dygraph(ts[[input$I]])
  
})

【问题讨论】：

标签： r shiny r-markdown markdown

【解决方案1】：

您应该使用dygraphs::renderDygraph 而不是renderPlot

dygraphs::renderDygraph({
  dygraph(ts[[input$I]])
})

【讨论】：