有没有办法在 Shiny App 上渲染数据资源管理器库中的图

【问题标题】：Is there a way to render plots from Data Explorer library on Shiny App有没有办法在 Shiny App 上渲染数据资源管理器库中的图
【发布时间】：2022-11-17 15:35:58
【问题描述】：

我正在尝试将 EDA 的结果绘制到 Shiny App 上，为此我一直在使用 DataExplorer 库，并且我能够在 rmarkdown 笔记本上执行操作。我正在考虑使用下面的代码将这些图集成到闪亮的应用程序中，但我遇到了错误，你能在这方面帮助我吗，如果有可能实现这一点，也建议我。

UI part 

library(shiny)
library(DataExplorer)

  fluidRow(width=12,
           column(12,plotOutput("struct"))
    
  )

Server block
df<-read.csv("/path/to/csv/file.csv")
            output$struct<-renderPlot({
              req(df)
              
              plot_str(df)
            })

我在这里先向您的帮助表示感谢

【问题讨论】：

标签： r shiny r-data-explorer

【解决方案1】：

plot_str 默认打印 networkD3::diagonalNetwork，但是，它返回 list。

如果你想用闪亮的方式渲染diagonalNetwork对象，你需要使用networkD3::renderDiagonalNetwork。请检查以下内容：

library(shiny)
library(DataExplorer)
library(datasets)
library(networkD3)

# DF <- read.csv("/path/to/csv/file.csv")
DF <- mtcars

ui <- fluidPage(
  fluidRow(column(12, diagonalNetworkOutput("struct")))
)

server <- function(input, output, session) {
  output$struct <- renderDiagonalNetwork({
    req(DF)
    diagonalNetwork(plot_str(DF, print_network = FALSE))
  })
}

shinyApp(ui, server)

【讨论】：