r 闪亮的反应 gsummary 表答案

【问题标题】：r shiny reactive gtsummary tabler 闪亮的反应 gsummary 表
【发布时间】：2020-10-26 11:36:21
【问题描述】：

在您的帮助下解决了 {gtsummary} 的渲染问题后：How to use {gtsummary} package in r shiny app ！再次感谢 stefan，我尝试在我的应用程序中构建反应性。在使用 {gtsummary} 构建汇总表后，我想从选择输入字段中传递 y 变量来更改汇总表。我收到此错误：没有适用于“as_factor”的方法应用于类“c（'double'，'numeric'）”的对象这超出了我的极限。有人可以帮忙吗？我的代码：

library(shiny)
library(gtsummary)
library(gt)
# make dataset with a few variables to summarize
iris2 <- iris %>% select(Sepal.Length,  Sepal.Width, Species)

# summarize the data with our package
table1 <- tbl_summary(iris2) %>% as_gt()
table1

shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             # Select variable for y-axis
             selectInput(inputId = "y", 
                         label = "Y-axis:", 
                         choices = names(iris2),
                         selected = "Sepal.Length"),
             gt_output('table')
      )
    )
  ),
  server = function(input, output) {

    varY <- reactive({input$y})
    
    output$table <- render_gt({
      table1 <- tbl_summary(iris2[, varY()]) %>% as_gt() 
  })
})

【问题讨论】：

标签： r shiny reactive gtsummary gt

【解决方案1】：

问题是tbl_summary 需要一个数据框作为它的第一个参数，而您正在传递一个数字向量iris2[, varY()]。如果我猜对了，您想选择列 varY()，这可以通过以下方式实现：

table1 <- tbl_summary(select(iris2, all_of(varY()))) %>% as_gt()

【讨论】：

再次感谢 stefan。正是我需要的！