无法在 markdown 上绘制 dygraph

Question

我想在 markdown 文档中绘制带有 dygraph 的时间序列。我可以 select 列表中的时间序列并使用 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]])
  
})

Answer 1

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

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

无法在 markdown 上绘制 dygraph

can´t plot dygraph on markdown

markdown

r

r-markdown

shiny