r-显示特定列的汇总统计信息

Question

我在分析数据时出错，当用户选择变量并单击"计算"时，程序应该会工作，它会显示最小值、中值、最大值、第一个四分位数和第三个四分位位数。就目前而言，它显示了所有的变量，而不是一个。

observeEvent(newdata_reactive$newdata(),{
choices <- c(not_sel,names(newdata_reactive$newdata()))
updateSelectInput(inputId = "var_1", choices = choices)
})
var_1 <- eventReactive(input$btn,input$var_1)

output$total <-renderText({
calculate()
dataset <- newdata_reactive$newdata()
summary(dataset)
})

在此处输入图像描述

Answer 1

将summary(dataset)行更改为：

summary(dataset[,which(colnames(dataset)==input$var_1)])

这将只汇总从输入$var_1中的数据集中选择的一列。