R Shiny：如何在响应式函数内对数据进行因子化？

你在Shiny响应式函数中对celltype列进行因子化时遇到报错：data必须是<data.frame>或可被fortify()转换的对象，而非对象。核心问题出在参数传递错误，以及响应式函数的返回值类型不符合要求。

错误代码分析 #

filtData <- reactive({  
        
    # 这部分正常工作
    data <- filter(data, gene == gene())
    
    # 这里存在问题
    data$celltype <- factor(data$celltype, levels <- c("Granulocytes", "Monocytes", 
                                                       "T-cells", "B-cells", "Dendritic cells",
                                                       "NK-cells", "Total PBMC"))
})

• 第一个错误：factor函数中误用了levels <-（赋值符号），这会在当前环境创建一个名为levels的变量，而非将向量传递给factor的levels参数，正确写法是levels =。
• 第二个错误：响应式函数没有明确返回整个data数据框，R会默认返回最后一行代码的结果（也就是data$celltype这个因子向量），导致ggplot接收的是因子而非数据框，触发报错。

你尝试的lapply方法也不合理：lapply会返回列表，而我们需要直接对整个列生成因子向量，不需要逐元素处理。

正确实现代码 #

filtData <- reactive({  
    # 过滤数据
    data <- filter(data, gene == gene())
    
    # 正确因子化celltype列：用=传递levels参数
    data$celltype <- factor(data$celltype, levels = c("Granulocytes", "Monocytes", 
                                                      "T-cells", "B-cells", "Dendritic cells",
                                                      "NK-cells", "Total PBMC"))
    
    # 明确返回整个数据框，确保响应式输出是data.frame类型
    return(data)
})

关键修改说明 #

1. 将levels <-改为levels =，正确传递因子水平参数，确保细胞类型按你指定的顺序排列。
2. 在函数末尾添加return(data)（或直接写data），明确返回整个数据框，保证响应式输出的类型是data.frame，符合ggplot的要求。

你可以在函数中添加print(class(data))来验证返回值类型，确认是data.frame而非factor。

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