多个 group_by 闪亮的应用程序制作一个情节

Question

\

我是 R Shiny 的初学者。

我在下面的链接中遇到了类似的问题。 multiple group_by in shiny app

我没有按照上面链接中的说明制作表格，而是按照上面链接中的说明进行管理。

我想制作一个情节，最好用 hchart。由于分组，我会在其中切换信息。困难的部分/或不起作用的事情是将 group_by 放在 x 轴上。

## hier de tabel versie
df2 <- readRDS("Data.rds")


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

ui <- fluidPage(

  titlePanel("Dashboard"),

  sidebarLayout(
    sidebarPanel(

      uiOutput("groups")

    ),


    mainPanel(

      DT::dataTableOutput("summary")
    )
  )
)


server <- function(input, output) {
  mydata <- reactive({
    data <- df2 
    data
  })




  output$groups <- renderUI({
    df <- mydata()
    selectInput(inputId = "grouper", label = "Group variable", choices = c("L","Lt","Lp"), selected = "L")
  })




  summary_data <- reactive({
    req(input$grouper)
    mydata() %>%
      dplyr::group_by(!!!rlang::syms(input$grouper)) %>%
      dplyr::summarise(aantal = n()) %>% 
      dplyr::arrange(desc(aantal)) 
  })

  output$summary <- DT::renderDataTable({
    DT::datatable(summary_data())
  })



}


shinyApp(ui, server)

上面的代码有效，但我试图制作这样的情节：

df2 <- readRDS("Data.rds")


library(shiny)
library(highcharter) 
library(dplyr)

ui <- fluidPage(

  titlePanel("Dashboard"),

  sidebarLayout(
    sidebarPanel(

      uiOutput("groups")

    ),


    mainPanel(

      highchartOutput("plotje")
    )
  )
)


server <- function(input, output) {
  mydata <- reactive({
    data <- df2  
    data
  })




  output$groups <- renderUI({
    df <- mydata()
    selectInput(inputId = "grouper", label = "Group variable", choices = c("L","Lt","Lp"), selected = "L")
  })




  summary_data <- reactive({
    req(input$grouper)
    mydata() %>%
      dplyr::group_by(!!!rlang::syms(input$grouper)) %>%
      dplyr::summarise(aantal = n()) %>% 
      dplyr::arrange(desc(aantal))
  })

  output$plotje <- renderHighchart({
    data <- summary_data()
    hchart(data, "column", hcaes(x = "grouper" , y = aantal)) # --> de plot zelf komt in het output deel van de UI
  })



}


shinyApp(ui, server)

有人可以帮帮我吗？！

提前致谢！

亲切的问候，

史蒂芬

Answer 1

input$grouper 变量中有 grouper 列。 这只是取消引用它的问题。

hchart(data, "column", hcaes(x = "grouper" , y = aantal)) 应该是： hchart(data, "column", hcaes(x = !!input$grouper , y = aantal))

完整示例（使用 iris 数据，因为您没有提供自己的数据示例）：

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

ui <- fluidPage(titlePanel("Dashboard"),

                sidebarLayout(
                  sidebarPanel(uiOutput("groups")),

                  mainPanel(DT::dataTableOutput("summary"),
                            highchartOutput("plot"))
                ))


server <- function(input, output) {
  mydata <- reactive({
    iris
  })

  output$groups <- renderUI({
    df <- mydata()
    selectInput(
      inputId = "grouper",
      label = "Group variable",
      choices = c("Petal.Length", "Species"),
      selected = "Species"
    )
  })

  summary_data <- reactive({
    req(input$grouper)
    mydata() %>%
      dplyr::group_by(!!!rlang::syms(input$grouper)) %>%
      dplyr::summarise(aantal = n()) %>%
      dplyr::arrange(desc(aantal))
  })

  output$summary <- DT::renderDataTable({
    DT::datatable(summary_data())
  })

  output$plot <- renderHighchart({
    req(input$grouper)
    data <- summary_data()
    hchart(data, "column", hcaes(x = !!input$grouper, y = aantal))
  })

}

shinyApp(ui, server)