多个分组和多个表同时闪亮答案

【问题标题】：multiple group by and multiple tables at the same time in shiny多个分组和多个表同时闪亮
【发布时间】：2021-12-13 18:07:51
【问题描述】：

转至以下code，我想分别同时查看多个表。如何解决这个问题？非常感谢。

 library(dplyr)
library(shiny)

iris$Species2 <- iris$Species

ui <- fluidPage(
  
  selectInput(inputId ="column",
              label = "Choose Column for Summary",
              choices = c("Species", "Species2"),
              selected = "Species", multiple = T),
  
  DT::dataTableOutput('mytable')
)

server <- function(input, output) {
  output$mytable <- DT::renderDataTable({
    Summarise <-
      iris %>%
      dplyr::group_by(across(all_of(input$column))) %>% 
      summarise(mean1 = mean(Sepal.Length))
    DT::datatable(data = Summarise)
  })
  
}

# Run the application 
shinyApp(ui = ui, server = server)

预期的答案

  Species    mean1   
  <fct>      <dbl> 
1 setosa      5.01  
2 versicolor  5.94  
3 virginica   6.59  

Species2    mean1   
  <fct>      <dbl> 
1 setosa      5.01  
2 versicolor  5.94  
3 virginica   6.59

【问题讨论】：

您必须更具体地说明您希望在每个表格中显示的内容。您所需输出的示例显示可能会对您有所帮助。

标签： r shiny shinyapps

【解决方案1】：

一种方法如下所示。

library(dplyr)
library(shiny)
library(DT)

iris$Species2 <- iris$Species

ui <- fluidPage(
  
  selectInput(inputId ="column",
              label = "Choose Column for Summary",
              choices = c("Species", "Species2"),
              selected = "Species", multiple = T),
  uiOutput("t1")
  #DTOutput('mytable')
)

server <- function(input, output) {
  SummaRise <- reactive({
    req(input$column)
    
    if (length(input$column)>1) {
      df1 <- iris %>%
        dplyr::group_by(across(all_of(input$column[1]))) %>%
        dplyr::summarise(mean1 = mean(Sepal.Length))
      df2 <- iris %>%
        dplyr::group_by(across(all_of(input$column[2]))) %>%
        dplyr::summarise(mean1 = mean(Sepal.Length))
    } else {
      df1 <- iris %>%
        dplyr::group_by(across(all_of(input$column))) %>%
        dplyr::summarise(mean1 = mean(Sepal.Length))
      df2 <- NULL
    }
    return(list(d1 = df1, d2 = df2))
  })
  
  output$mytable1 <- renderDT({datatable(SummaRise()[["d1"]])})
  output$mytable2 <- renderDT({datatable(SummaRise()[["d2"]])})
  
  output$t1 <- renderUI({
    tagList(
      DTOutput("mytable1"),
      DTOutput("mytable2")
    )
  })
}

# Run the application
shinyApp(ui = ui, server = server)

【讨论】：

我欣赏