如何在Shiny中展示支持节点拖拽的corrgrapher对象？

你之前的代码用plot()调用corrgrapher对象时，实际上是将其转换为了静态ggplot图形，丢失了原本支持拖拽的交互功能。corrgrapher的交互版本本质是一个htmlwidget，需要用Shiny支持htmlwidget的方式来渲染，才能保留拖拽等交互特性。

正确实现代码 #

可以通过uiOutput配合renderUI直接返回corrgrapher对象（因为它本身是htmlwidget，Shiny会自动处理渲染），或者使用widgetOutput和renderWidget（需要加载htmlwidgets包）。下面是两种可行的实现方式：

方法1：使用uiOutput + renderUI #

library(shiny)
library(corrgrapher)

if (interactive()) {
  ui <- fluidPage(
    fluidRow(
      h1("可拖拽的corrgrapher关系图"),
      uiOutput("corrgram")
    )
  )
  
  server <- function(input, output, session) {
    output$corrgram <- renderUI({
      # 直接返回corrgrapher对象，无需调用plot()
      corrgrapher(mtcars)
    })
  }
  
  shinyApp(ui = ui, server = server)
}

方法2：使用widgetOutput + renderWidget（需加载htmlwidgets） #

library(shiny)
library(corrgrapher)
library(htmlwidgets)

if (interactive()) {
  ui <- fluidPage(
    fluidRow(
      h1("可拖拽的corrgrapher关系图"),
      widgetOutput("corrgram")
    )
  )
  
  server <- function(input, output, session) {
    output$corrgram <- renderWidget({
      corrgrapher(mtcars)
    })
  }
  
  shinyApp(ui = ui, server = server)
}

关键说明 #

• 不要调用plot()方法：plot(corrgrapher_obj)会触发corrgrapher的静态绘图逻辑，生成不可交互的ggplot，这是你之前丢失拖拽功能的核心原因。
• corrgrapher对象本身是htmlwidget：这类对象可以直接在Shiny中通过renderUI返回，或者用专门的widget输出函数渲染，从而完整保留拖拽、缩放等交互特性。

内容的提问来源于stack exchange，提问作者micstr