Question

基于这个问题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])
```

有什么建议吗？

Answer 1

我正试图解决一个类似的问题，方法是编写一个函数来创建一个字形图，并用一个具有style = "display:inline-block;"属性的div将其包装。

查看与我自己的完整对话以及示例代码here

Rmarkdown中的dygraphs调整图高度

1 个答案: