r - 根据我在ggplots列表中拥有的绘图数量创建多个renderPlot函数？

有什么方法可以根据ggplots列表中的绘图数量动态创建许多renderPlot函数？

我有一个Shiny应用程序，而不是使用稳定的UI，也不使用renderUI，而是依靠用户提供的配置文件来告诉Shiny显示多少个图。配置文件还提供数据，几乎可以帮助您完成大部分繁重的工作。

经过多次战斗，我大部分时间都在那里。使用方便的配置文件，我可以构建正确的UI，并生成正确数量的ggplots。 ggplots位于一个列表中，该列表创造性地命名为list_of_ggplots。

但是现在，我在这里有一个ggplots列表，我需要允许通过使用它们来绘制它们，如下所示:

  output$plot1 <- renderPlot({
  print(list_of_ggplots[[1]])
})

但是现在我有一个存在主义危机-我不能这样做，因为用户提供的配置文件告诉我我有多少个图。我不再能够像通常在Shiny中那样对renderPlot调用进行硬编码，因为所需的这些功能的数量在配置文件中定义。

给定我的ggplots列表，我需要某种方法来生成renderPlot调用。

有没有人这样做或有任何想法？非常感激。

这是我的代码:

SERVER.R:

library(shiny)
library(ggplot2)

# 3 simple plots of different colors -- used here instead of all the complicated stuff
# where someone uses the config file that specified 3 plots, with data, etc.

ggplot_names <- c("p1", "p2", "p3")
ggplot_colors <- c("red", "blue", "green")
list_of_ggplots <- list()
j = 1
for (i in ggplot_names){
  i <- ggplot(data.frame(x = c(-3, 3)))
  i <- i + aes(x)
  i <- i + stat_function(fun = dnorm, colour=ggplot_colors[[j]])
  list_of_ggplots[[j]] <- i
  j <- j+ 1
}

## here's the problem -- the user specified 3 plots.
## I can't hardcode the following shinyServer functions!!!
## What if tomorrow, the user specifies 2 plots instead?
shinyServer(function(input, output) {

  output$plot1 <- renderPlot({
  print(list_of_ggplots[[1]])
})

  output$plot2 <- renderPlot({
  print(list_of_ggplots[[2]])
})

  output$plot3 <- renderPlot({
  print(list_of_ggplots[[3]])
})
})

UI.R

## this top part is actually sourced from the config file
## since Shiny needs to know how many tabPages to use,
## names for the tabs, etc

number_of_tabPages <- 3
tab_names <- c("", "Tab1", "Tab2", "Tab3")
tabs<-list()
tabs[[1]]=""
for (i in 2:(number_of_tabPages+1)){
  tabs[[i]]=tabPanel(tab_names[i],plotOutput(paste0("plot",i-1)))}

## Here's the familiar UI part
shinyUI(fluidRow(

        column(12,
               "",
               do.call(navbarPage,tabs)
              )
                )
      )

最佳答案

您可以使用此解决方案(我仅修改了脚本的shinyServer部分，因此在此不列出重复的代码):

 shinyServer(function(input, output) {

 observe(
     lapply(seq(3),function(i) output[[paste0("plot",i)]] <- renderPlot(list_of_ggplots[[i]]))
 )

 })

当然，您可以将3替换为变量。

关于r - 根据我在ggplots列表中拥有的绘图数量创建多个renderPlot函数？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/28553908/