Question

R包 summarytools 中的descr（）函数生成通用的集中趋势统计信息，并测量R中数值数据的离散度。

当我在 Shiny应用程序中将descr（）与by（）结合使用时，数据中包含的变量（功能）名称将消失并且不会显示。而是将名称替换为Var1，Var2，Var3等。

当我在Shiny应用程序中实现这些代码时，我真的不明白为什么这些名称会消失（请参见下文）。有想法吗？

# Install packages
source("https://bioconductor.org/biocLite.R")
biocLite("ALL")
biocLite("Biobase")
install.packages('devtools')
devtools::install_github('dcomtois/summarytools')

# Load packages
library(summarytools)
library(Biobase)
library(ALL) 

# Shiny Server
server <- function(input, output, session) {
  output$summaryTable <- renderUI({
    #-- Load the ALL data
    data(ALL)  
    #-- Subset
    eset_object <- ALL [1:3,] # choose only 3 variables 
    #-- The group of interest 
    eset_groups <-"BT"
    # print(rownames (eset_object)) # print variable names
    ALL_stats_by_BT <- by(data = as.data.frame(t(exprs(eset_object))), 
                          INDICES = (pData(eset_object)[,eset_groups]), 
                          FUN = descr, stats ="all", 
                          transpose = TRUE)

    view(ALL_stats_by_BT,
         method = 'render',
         omit.headings = FALSE,
         bootstrap.css = FALSE)
  })
}

# Shiny UI
ui <- fluidPage(theme = "dfSummary.css",
                fluidRow(
                  uiOutput("summaryTable")
                )
)

# Lauch
shinyApp(ui, server)

Answer 1

标题会引起问题，因此您需要使用：

view(ALL_stats_by_BT,
        method = 'render',
        omit.headings = TRUE, # not FALSE
        bootstrap.css = FALSE)

另外，从gitHub（今天提交）安装最新版本以显示所有组（这是descr()在版本<0.8.7中的问题）

devtools::install_github("dcomtois/summarytools")

编辑

我仔细研究了一下，发现它可以工作（我使用示例数据框进行简化）...

server <- function(input, output, session) {
  library(summarytools)

  output$summaryTable <- renderUI({

    data(exams)

    stats_by_gender <- by(data = exams[,3:4],
                          INDICES = exams$gender, 
                          FUN = descr, stats ="all", 
                          transpose = TRUE)

    view(stats_by_gender,
         method = 'render',
         bootstrap.css = FALSE)

  })
}

...这不是（意味着变量名丢失）：

server <- function(input, output, session) {
  library(summarytools)

  output$summaryTable <- renderUI({

    data(exams)

    # this time using a temporary subsetted object     
    dat <- exams[,3:4]    

    stats_by_gender <- by(data = dat,
                          INDICES = exams$gender, 
                          FUN = descr, stats ="all", 
                          transpose = TRUE)

    view(stats_by_gender,
         method = 'render',
         bootstrap.css = FALSE)

  })
}

这与 summarytools 检索对象名称的方式有关，我需要进一步研究。

在Shiny应用程序中将summarytools :: descr（）与by（）一起使用时，变量名称消失

1 个答案: