R visNetwork:多图形布局？

Question

我想并排放置两个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')

干杯，蒂姆

Answer 1

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

install.packages('flexdashboard')

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

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

```{r, echo=FALSE}

库(VisNetwork)

网络1

nodes1 <- data.frame(id = 1:3)

edges1 <- data.frame(from = c(1,1)，to = c(2,3))

网络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= 'from')

### Chart 2

```{r}

visNetwork(nodes2，edges2) %>%箭头(visEdges= 'from')

请注意，当布局响应时，Rstudio中Viewer窗格中的默认视图会垂直堆叠图形，但扩展窗格或在外部浏览器中打开该窗格时，它们会并排显示。

​

​

Answer 2

通过一个app.R文件使用Shiny的解决方案：

library(shiny)
library(visNetwork)

ui <- fluidPage(
  fluidRow(
    column(6,
           visNetworkOutput('vis1')),
    column(6,
           visNetworkOutput('vis2'))
  )
)

server <- function(input, output) {

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

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


  output$vis1 <- renderVisNetwork(
    {
      visNetwork(nodes1, edges1) %>% 
        visEdges(arrows = 'from') %>% 
        return
    })
  output$vis2 <- renderVisNetwork(
    {
      visNetwork(nodes2, edges2) %>% 
        visEdges(arrows = 'from') %>% 
        return
    })
}

shinyApp(ui = ui, server = server)