答案 0 :(得分:1)
这样的事情怎么样...
library(dygraphs)
serie <- list(serie1, serie2, serie3)
full_serie <- do.call(cbind.data.frame, serie)
names(full_serie) <- c("serie1", "serie2", "serie3")
library(htmltools)
dy_graph <- dygraph(full_serie) %>%
dySeries("serie1") %>%
dySeries("serie2") %>%
dySeries("serie3")
htmltools::browsable(htmltools::tagList(dy_graph))