R Shiny文件上传与选定列绘图应用开发问题求解

你已经封装了myData()响应式对象，所有需要用到上传数据的位置直接调用myData()即可，注意调用时必须加括号，因为这是响应式函数不是普通数据框。选择指定列的话，通过下拉菜单选中的变量名作为索引取值即可。

server <- function(input, output, session) {
    
    myData <- reactive({ 
        f = input$file
        if (is.null(f)){
            return(NULL)
        } else {
            read.table(f$datapath, header = input$header, sep = input$sep, stringsAsFactors = FALSE)
        }
    })

    #A. 创建变量选择下拉菜单
    output$variable <- renderUI({
        req(myData()) # 确保数据已经上传再渲染菜单
        selectInput(inputId = "sel_col",
                    label = "选择要绘图的变量:",
                    choices = names(myData()),
                    selected = names(myData())[1])
    })

    #B. 渲染完整表格
    output$table <- renderTable({
        req(myData())
        myData()
    })
    
    #C. 生成数据汇总
    output$summary <- renderPrint({
        req(myData())
        summary(myData())
    })
    
    #D. 自动适配变量类型绘图
    output$plot <- renderPlotly({
        req(myData(), input$sel_col) # 确保数据和选中变量都存在
        # 提取选中的列
        col_data <- myData()[[input$sel_col]]
        col_name <- input$sel_col
        
        # 判断变量类型
        if (is.numeric(col_data)) {
            # 数值变量画直方图
            p <- ggplot(myData(), aes(x = .data[[col_name]])) +
                geom_histogram(fill = "#2c3e50", bins = 30, alpha = 0.8) +
                labs(x = col_name, y = "频数", title = paste0(col_name, " 分布直方图")) +
                theme_minimal()
        } else {
            # 分类变量画条形图，取top10避免太多类别挤在一起
            count_df <- as.data.frame(table(col_data)) %>% 
                arrange(desc(Freq)) %>% 
                slice(1:10)
            colnames(count_df) <- c(col_name, "频数")
            p <- ggplot(count_df, aes(x = reorder(.data[[col_name]], -频数), y = 频数)) +
                geom_bar(stat = "identity", fill = "#27ae60", alpha = 0.8) +
                labs(x = col_name, y = "频数", title = paste0(col_name, " 分布条形图（Top10类别）")) +
                theme_minimal() +
                theme(axis.text.x = element_text(angle = 45, hjust = 1))
        }
        ggplotly(p)
    })
}

• 所有调用上传数据的位置加req(myData())，避免数据还没上传的时候抛出无效报错
• 引用选中列的两种常用写法：
  • 基础R语法：myData()[[input$sel_col]]，直接用中括号索引取值
  • ggplot aes内的写法：.data[[col_name]]，用来兼容tidyverse的非标准计算规则
• 变量类型判断直接用is.numeric()即可，字符、逻辑、因子变量统一按分类变量处理画条形图

内容的提问来源于stack exchange，提问作者Jsnapp01