在Shiny中打印sankey图

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  # 在这里添加UI组件
)

server <- function(input, output) {
  # 在这里添加服务器逻辑
}

shinyApp(ui, server)

library(networkD3)

ui <- fluidPage(
  # 添加一个输出组件来显示sankey图
  sankeyNetworkOutput("sankeyPlot")
)

server <- function(input, output) {
  # 在这里添加服务器逻辑
}

shinyApp(ui, server)

server <- function(input, output) {
  output$sankeyPlot <- renderSankeyNetwork({
    # 生成sankey图的数据
    sankeyData <- data.frame(
      source = c("A", "A", "B", "B"),
      target = c("X", "Y", "X", "Y"),
      value = c(10, 20, 30, 40)
    )
    
    # 创建sankey图
    sankeyNetwork(Links = sankeyData, Nodes = NULL, Source = "source", Target = "target", Value = "value", NodeID = NULL, units = "units", fontSize = 12, nodeWidth = 30, sinksRight = TRUE)
  })
}

shinyApp(ui, server)

shiny::runApp()