r - R visNetwork:多个图形布局？

我想并排放置两个visNetwork图以进行视觉比较。使用带有par（）或layout（）的igraph可以进行多图定位。有没有办法为visNetwork做到这一点？变通方法/恶意软件（包括RShiny等）是可接受的答案-可以并排显示visNetwork的任何方法。请注意，ID号等重叠，因此将两个网络置于同一个图形中将是我希望避免的大量数据操作。

这是我尝试做的事情的一个例子。

library(visNetwork)

# Network 1
nodes1 <- data.frame(id = 1:3)
edges1 <- data.frame(from = c(1,1), to = c(2,3))

# Network 2
nodes2 <- data.frame(id = 1:4)
edges2 <- data.frame(from = c(1,1,2,2), to = c(2,3,4,3))

# Plot both networks side-by-side?
par(mfrow=c(1,2))  # Want something like this (does not work)
visNetwork(nodes1, edges1) %>% visEdges(arrows = 'from')
visNetwork(nodes2, edges2) %>% visEdges(arrows = 'from')

干杯，
提姆

最佳答案

如果给予完全自由，我会选择flexdashboard。这是一个方便的rmarkdown模板，用于创建交互式仪表板，从简单快速的仪表板到复杂的复杂仪表板。

install.packages('flexdashboard')

然后从模板Rmd创建新的'Flex Dashboard'，或将以下内容复制到新的.Rmd文件中

---
title: "DASHBOARD"
output:
    flexdashboard::flex_dashboard:
        orientation: rows
---

```{r, echo=FALSE}
library(visNetwork)

# Network 1
nodes1 <- data.frame(id = 1:3)
edges1 <- data.frame(from = c(1,1), to = c(2,3))

# Network 2
nodes2 <- data.frame(id = 1:4)
edges2 <- data.frame(from = c(1,1,2,2), to = c(2,3,4,3))

```

Row
-------------------------------------

### Chart 1

```{r}
visNetwork(nodes1, edges1) %>% visEdges(arrows = 'from')
```


### Chart 2

```{r}
visNetwork(nodes2, edges2) %>% visEdges(arrows = 'from')
```

请注意，由于布局是响应式的，因此Rstudio的“查看器”窗格中的默认视图会垂直堆叠图形，但是扩展窗格或在外部浏览器中打开它们会并排显示它们。