Question

我想创建一个动态创建的plotOutput object。

我创建了动态对象来渲染不同的绘图，它们传递了不同的“数据”，因此绘图会有所不同。

renderPlot函数随后保存在Graph1，Graph2，Graph3等等中，创建了多少次。然后UI元素“w”具有GraphOutput of Graph1，Graph2等等。

但是当我调用“w”时，最新的Graph将被渲染并覆盖在w的所有对象中。

还有其他办法吗？

output[[paste0("Graph",i)]]<-{ renderPlot({ggplot2(Data,aes(x=xxval,y=yval)+geom_point() } 
w<-plotOutput(paste0("Graph",i),height=200,width=300)

Answer 1

您想要使用函数insertUI。我感谢你 - 我终于找到了一个用例，你必须将输出放在观察者中。这是一个工作示例

library(ggplot2)

shinyApp(
  ui = fluidPage(
    column(
      width = 3,
      actionButton(
        inputId = "newGraph",
        label = "add Graph"
      ),
      selectInput(
        inputId = "xAxis",
        label = "x-axis",
        choices = colnames(mtcars)
      ),
      selectInput(
        inputId = "yAxis",
        label = "y-axis",
        choices = colnames(mtcars)
      )
    ),
    column(
      width = 9,
      id = "graph_wrapper"
    )
  ),
  server = function(input, output,session) {
  observeEvent(input$newGraph,{
    insertUI(
      selector = '#graph_wrapper',
      where = "beforeEnd",
      ui = plotOutput(
        outputId = paste0("plot",input$newGraph)
      ))
    xxval = input$xAxis
    yval = input$yAxis
    output[[paste0("plot",input$newGraph)]] = renderPlot({
      ggplot(mtcars,aes_string(x=xxval,y=yval))+geom_point() 
    })
  })  
  })
)

希望这有帮助！

无法在R中创建具有动态名称的非反应性RenderPlot对象

1 个答案: