时间戳

首页 > 解决方案 > Shiny中的和弦网络覆盖自身

r - Shiny中的和弦网络覆盖自身

问题描述

我正在一个闪亮的应用程序中渲染一个和弦网络。我想做的是提供两种不同的网络表示。一个基于谁受谁影响，另一个基于谁影响谁。简而言之，我所代表的是一个版本中的数据集，以及该数据集在另一个版本中的转置。

我的问题是，当我渲染网络并切换输入时，新版本的图只是简单地覆盖在旧版本的图上。在显示下一个图之前，我需要以某种方式擦除上一个图。

这个最小的例子展示了默认的展示方式：

影响

这就是我选择绘制转置数据时发生的情况（即我更改数据集）

影响

如果我切换回原来的选择，它只会再次叠加。

我相信这个问题有一个简单的答案，我只是无法用谷歌搜索正确的词。

下面的最小可重现代码

library(shiny)
library(networkD3)

Data <- matrix(c(NA,  1951,  8010, 1013,
               5871, NA, 16145,  990,
               8916,  2060,  NA,  940,
               2868,  6171,  8045, NA), nrow = 4)

ui <- fluidPage(

    titlePanel("Chord network"),

    mainPanel(   htmlOutput("inputDataChoice"),
                 chordNetworkOutput(outputId = "chord_network", width = "600px", height = "600px")
             )
             
    )


server <- function(input, output) {
    
    #Choose the data type
    output$inputDataChoice <- renderUI({
        selectInput(inputId = "dataChoice", label = "Choose data shape",
                    choices=c("Influenced", "Influences"),
                    width = "450px"
        )})

    #Dataset shape based on choice
    chordData <- reactive({
        switch(input$dataChoice,
               "Influenced" = Data,
               "Influences" = t(Data))
    })

    #Plot
    observe ({
        output$chord_network <- renderchordNetwork({


            chordNetwork(chordData(),
                         padding = 0.1,
                         colourScale = c("#000000",
                                         "#FFDD89",
                                         "#957244",
                                         "#F26223"),
                         labels = c("Bob", "Brenda", "Barry", "Belinda"))

    })})
}

shinyApp(ui = ui, server = server)

标签： rshinynetworkd3chord

解决方案

有趣的错误！看起来问题实际上出在正在使用的包中。我很惊讶这个错误没有被报告，我猜人们并没有使用太多关于闪亮的东西？！

我通过在渲染小部件之前清除画布来修复错误。我不是 d3 专家，但我认为这可以chordNetwork.js通过使用data().enter()而不是在包中修复，datum()但不幸的是我无法让它工作。

相反，它是通过在我们渲染任何绘图之前插入以下代码行来修复的。

d3.select(el).select("g").selectAll("g").remove() //Create a blank canvas

您可以在我的分叉存储库中访问此固定包，https://github.com/sada1993/networkD3。用于devtools::install_github("sada1993/networkD3")安装包。

也许我们可以为此修复添加 PR？但看起来该软件包不再处于开发阶段。

这是查看更改的差异：https ://github.com/christophergandrud/networkD3/compare/master...sada1993:master

推荐阅读