R Shiny 为 Plotly 图表生成下拉菜单 - 使用子元素

Question

尝试创建一个闪亮的应用程序，它有一个下拉菜单，允许您 select 作为保存到全局环境的列表的子元素的绘图。

绘图位于列表中每个元素的第二个子元素中

e.g. list = ([[dataframe1, plot1], [dataframe2, plot2], etc])

我尝试创建的应用由以下人员提供：

choices = paste0("list[[1]][[", 1:2, "]]")

ui <- shinyUI(fluidPage(selectInput("selectPlot", 
                                    "Choose desired country", 
                                     choices),
                        plotlyOutput("plot")))

server <- shinyServer(function(input,output){      
   output$plot <- renderPlotly({
     return(get(input$selectPlot))
   })
 })

shinyApp(ui,server)

但是，没有显示任何图，我收到以下错误消息： **警告：获取错误：未找到对象 'anom[[1]][[1]]'*

如果我将地块单独保存到环境中，那么这种方法就有效。但是，我正在尝试通过这个已经存在的列表访问这些图！

添加可重现的示例：

ds1 <- data.frame(sample(1:10, 10), sample(11:20, 10))
ds2 <- data.frame(sample(1:10, 10), sample(11:20, 10))

p1 = plot_ly(x = ~ds1[[1]], y = ~ds1[[2]]) %>% add_markers() 
p2 = plot_ly(x = ~ds2[[1]], y = ~ds2[[2]]) %>% add_markers() 

l = list(list(ds1, p1), list(ds2, p2))

#want to access p1 and p2 from within the list to create drop down menu graph
choices.p = paste0("l[[1]][[", 1:2, "]]")

ui <- shinyUI(fluidPage(selectInput("selectPlot", 
                               "Choose desired country", 
                               choices.p), 
                               plotlyOutput("plot")))


server <- shinyServer(function(input,output){      
output$plot <- renderPlotly({
  return(get(input$selectPlot)) 
 })
})

shinyApp(ui,server)

Answer 1

根据您的 MWE，此代码不会将绘图保存在任何地方，而是使用 observeEvent 根据选择进行绘图。

library(shiny)
library(plotly)



ui <-shinyUI(fluidPage(selectInput("selectPlot", "Choose desired plot", choices=paste0("p", 1:2)), plotlyOutput("plot")))

server <- shinyServer(function(input,output){      

  observeEvent(input$selectPlot,{
    if(input$selectPlot %in% 'p1') output$plot <- renderPlotly(plot_ly(mtcars, x=~cyl, y=~gear))
    else output$plot <- renderPlotly(plot_ly(mtcars, x=~hp, y=~am))

  })


})

shinyApp(ui,server)

Answer 2

这样的东西对你有用吗：

p1 <- plot_ly(mtcars, x=~cyl, y=~gear)
p2 <- plot_ly(iris, x=~Sepal.Width, y=~Petal.Length, color = "red")

l = list(mtcars = list(mtcars, p1), iris = list(iris, p2))
choice_data <- names(l)

ui <- shinyUI(fluidPage(selectInput("selectPlot", 
                                    "Choose desired country", 
                                    choices = choice_data), textOutput("selected_var"), uiOutput("test")))


server <- shinyServer(function(input,output){   

  output$test <- renderUI({
    l[[input$selectPlot]][2]

  })

})

shinyApp(ui,server)

R Shiny 为 Plotly 图表生成下拉菜单 - 使用子元素

RShiny Generating Dropdown Menu for Plotly Charts - using subelements

r

shiny

plotly

r-plotly