R Flexdashboard 在单个选项卡上绘制多个图

Question

我正在尝试将多个 dygraph 绘图放在 Flexdashboard 的单个选项卡上。我从这里和这里尝试了很多不同的选择

\n\n

我的 RMD 文件如下所示：

\n\n

    ---\n    title: "Project Dashboard"\n    output: \n      flexdashboard::flex_dashboard:\n        orientation: columns\n        vertical_layout: scroll\n    ---\n        # Intro {.sidebar}\n\n        # Page 1\n\n        ## Column 1 {.tabset .tabset-fade data-width=850}\n\n        ### Site 1\n\n    ```{r  Data, echo=FALSE, fig.height=2}\n\n        s <- dygraph(as.xts(df,order.by=df$DateTime), group = "NC") %>% \n          dyOptions(drawPoints = TRUE, pointSize = 1) %>%\n          dyAxis("y", label = "Salinity (PSU)", valueRange = c(16, 30)) %>%\n          dyRangeSelector(height = 20) %>% \n          dyLegend(width = 400)\n\n        t <- dygraph(as.xts(df,order.by=df$DateTime), group = "NC") %>% \n          dyOptions(drawPoints = TRUE, pointSize = 1) %>%\n          dyAxis("y", label = "Temperature (\xc2\xb0C)", valueRange = c(0, 30)) %>%\n          dyRangeSelector(height = 20) %>% \n          dyLegend(show = "follow", width = 400)\n\n        dy_graph <- list(s,t)\n        pt <- htmltools::browsable(htmltools::tagList(dy_graph))\n        pt\n\n```\n

\n\n

我尝试过各种其他组合，但它要么只绘制第一个图，要么将两个图放在一起，要么将它们压缩到一个很小的空间中。我什至尝试使用第四级降价标头（####），但这似乎也没有任何作用。

\n\n

有什么想法吗？

\n

Answer 1

不确定如何在 dygraph 包中执行此操作，但如果您恢复到 ggplot，您可以使用 gridExtra 包中的 grid.arrange 将多个绘图放置在一个“页面”内。

查看https://cran.r-project.org/web/packages/egg/vignettes/Ecosystem.html其中包含此示例：

require(ggplot)
require(gridExtra)
p1 <- qplot(mpg, wt, data = mtcars, colour = cyl)
p2 <- qplot(mpg, data = mtcars) + ggtitle("title")
grid.arrange(p1, p2, nrow = 1)