R Shiny多XLSX文件合并过滤绘图报错求助

我正在开发一个R Shiny应用，需求是让用户选择多个XLSX文件，使用rbind函数将它们堆叠合并，过滤数据集后生成绘图。但运行代码时出现报错：Warning: Error in UseMethod: no applicable method for 'filter' applied to an object of class "NULL"

错误原因排查 #

• 初始状态空值传递：应用启动时用户未选择文件，input$files为NULL，执行lapply(input$files$datapath, read_xlsx)会返回NULL，后续filter操作无法作用于NULL对象。
• 语法错误：
  • 向量c('A','B,'C')中B的引号位置错误，应为c('A','B','C')，缺失引号导致语法解析失败。
  • Reactive表达式末尾多余%>%，无后续操作导致代码不完整。
• ggplot缺少核心图层：仅定义映射关系但未添加几何对象（如柱状图、散点图层），无法生成有效图形。
• NULL判断时机错误：应该先判断文件是否被选择，再执行读取合并，而非合并后再判断。

修正后的完整代码 #

library(shiny)
library(readxl)
library(dplyr)
library(ggplot2)

ui <- fluidPage(
    titlePanel("Charts"),
    sidebarLayout(
        sidebarPanel(
            fileInput(inputId="files", label = "Select XLSX files", multiple = TRUE)
        ),
        mainPanel(
            tabsetPanel(
                tabPanel("Plot", plotOutput("plot1"))
            )
        )
    )
)

server <- function(input,output){
    data <- reactive({
        # 未选择文件时直接返回NULL
        if(is.null(input$files)){
            return(NULL)
        }
        
        # 批量读取并合并文件
        data_list <- lapply(input$files$datapath, read_xlsx)
        data_combined <- do.call(rbind, data_list)
        
        # 过滤筛选数据，修复语法错误
        data_combined %>% 
            filter(Variable %in% c('A','B','C')) %>% 
            select(Variable, `Name`,`Calconc`) %>% 
            filter(Name %in% c('D','E','F','G'))
    })
    
    output$plot1 <- renderPlot({
        # 数据为空时不执行绘图
        if(is.null(data())){
            return(NULL)
        }
        
        data() %>% 
            filter(Variable=="A") %>% 
            ggplot(aes(x = Name, y = Calconc)) +
            geom_col() # 可根据需求替换为geom_point()等图层
    })
}

shinyApp(ui=ui, server=server)

关键修复点 #

1. 提前判断input$files是否为空，避免无效的文件读取操作
2. 修正向量定义的引号错误，移除多余管道符
3. 绘图逻辑中增加空值判断，防止NULL传入ggplot
4. 为ggplot添加几何图层，确保能生成可视化图形

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