【发布时间】:2016-03-30 09:24:18
【问题描述】:
基于这个问题here 和提供的答案,我创建了以下代码来绘制多个 FX dygraphs。 Rmarkdown 文档的 fig.width 和 fig.height 在代码块中指定。但是,当以 lapply 函数格式创建图形时,高度指的是标准高度。
library("quantmod")
library("dygraphs")
library("dplyr")
FX_Names <- c("DEXUSEU","DEXUSUK","DEXUSAL","DEXUSNZ")
FXOV <- lapply(FX_Names, function(x) getSymbols(x,src='FRED',auto.assign = FALSE)) %>%
do.call(merge.xts,.)
```{r,fig.width=10,fig.height=2,eval=T}
dygraph_list <- lapply(1:4, function(i)
dygraph(FXOV['2010/',i]))
htmltools::tagList(dygraph_list)
```
如下图所示,在一个接一个地创建地块时,情况并非如此
```{r,fig.width=10,fig.height=2,eval=T}
dygraph(FXOV['2010',1])
dygraph(FXOV['2010/',2])
dygraph(FXOV['2010/',3])
dygraph(FXOV['2010/',4])
```
有什么建议吗?
【问题讨论】:
-
如果您删除所有不相关的行(从选项到轴的所有内容)并提供一个虚拟数据集以使示例自包含,则获得响应的机会会更好
-
感谢您的建议。将添加数据并缩短代码
-
getSymbols 来自哪个库?
标签: r r-markdown dygraphs