对于循环而言,dygraph在R中不起作用
在dygraph
上有一些奇怪的行为。
当为dygraph
使用for
循环时,我没有得到任何结果。
library(dygraphs) lungDeaths <- cbind(mdeaths, fdeaths) for(i in 1:2){ dygraph(lungDeaths[, i]) }
另一方面,当我使用lapply
我得到了预期的结果
lapply(1:2, function(i) dygraph(lungDeaths[, i]))
我实际上想在我自己的数据集上使用R Markdown
的for
循环,并遍历不同的列,但是即使当我使用lapply
“解决方法”时,也不会绘制dygraphs
R Markdown代码
--- title: "Untitled" author: "dimitris_ps" date: "28 May 2015" output: html_document --- ```{r} library(dygraphs) lungDeaths <- cbind(mdeaths, fdeaths) lapply(1:2, function(i) dygraph(lungDeaths[, i])) ```
而当我运行它逐列的工作
--- title: "Untitled" author: "dimitris_ps" date: "28 May 2015" output: html_document --- ```{r echo=FALSE} library(dygraphs) lungDeaths <- cbind(mdeaths, fdeaths) ``` ```{r} dygraph(lungDeaths[, 1]) dygraph(lungDeaths[, 2]) ```
任何帮助将不胜感激。
会话信息
R version 3.2.0 (2015-04-16) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows 7 x64 (build 7601) Service Pack 1 locale: [1] LC_COLLATE=English_United Kingdom.1252 LC_CTYPE=English_United Kingdom.1252 [3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C [5] LC_TIME=English_United Kingdom.1252 attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] dygraphs_0.4.3 devtools_1.7.0 loaded via a namespace (and not attached): [1] htmltools_0.2.6 tools_3.2.0 yaml_2.1.13 rmarkdown_0.6.1 digest_0.6.8
只需在htmltools::tagList()
包装lapply()
的列表输出,例如
```{r} library(dygraphs) lungDeaths <- cbind(mdeaths, fdeaths) res <- lapply(1:2, function(i) dygraph(lungDeaths[, i])) htmltools::tagList(res) ```