我正在尝试将 senkey 图 (networkD3) 和 sunburst 图 (sunburstR) 包含到 Shiny 应用程序中,但是当我将它们放在一起时我发现它不起作用。我没有收到任何错误,但只显示了桑基图。有没有人有同样的经历?
我真的很感激你能提供的任何帮助。
这是R代码:
library(shiny)
library(shinydashboard)
library(lubridate)
library(dplyr)
library(tidyr)
library("sunburstR")
library("D3partitionR")
library("networkD3")
library("visNetwork")
用户界面
ui <- fluidPage(
tabItem(tabName = "Sunburst",
fluidPage(
fluidRow(
sunburstOutput("sunburst")
)
),
tabItem(tabName = "Sankey",
fluidPage(
fluidRow(
sankeyNetworkOutput("sankey")
)
)
)
)
)
服务器.R
server <- function(input, output, session) {
output$sunburst <- renderSunburst({
add_shiny(sunburst(sequence))
})
output$sankey <- renderSankeyNetwork({
invalidateLater(100, session)
sankeyNetwork(Links = Links, Nodes = Nodes,
Source = "Source2", Target = "Target2",
Value = "Value", NodeID = "name",
colourScale = JS("d3.scaleOrdinal(d3.schemeCategory20);")
)
})
}