R语言循环筛选数据框报错：找不到paste0<-函数，求代码修正

错误原因 #

你遇到的Error in paste0(names(lst), j) <- ... : could not find function "paste0<-"是因为R不允许直接将值赋值给函数调用的结果。paste0(names(lst), j)是一个表达式，不是合法的变量名，无法直接赋值。

修正方案 #

方法1：基础R循环+assign() #

先提取所有唯一的gs_name，再逐个筛选匹配的基因并创建对应数据框：

# 提取lst中所有唯一的gs_name
unique_gs <- unique(unlist(lapply(lst, function(df) df$gs_name)))

# 循环处理每个gs_name
for (gs in unique_gs) {
  # 收集当前gs_name对应的所有gene_symbol
  target_genes <- unlist(lapply(lst, function(df) df$gene_symbol[df$gs_name == gs]))
  # 筛选all.deg中行名匹配的行，并用assign创建命名数据框
  assign(paste0("deg_", gs), all.deg[rownames(all.deg) %in% target_genes, ])
}

方法2：tidyverse风格（推荐） #

如果习惯用purrr，可以先生成筛选后的数据框列表，再按需导出到全局环境：

library(purrr)

# 生成以gs_name命名的筛选后数据框列表
deg_list <- map(set_names(unique_gs), function(gs) {
  target_genes <- unlist(lapply(lst, function(df) df$gene_symbol[df$gs_name == gs]))
  all.deg[rownames(all.deg) %in% target_genes, ]
})

# 可选：将列表中的每个数据框导出为全局环境中的独立变量
list2env(deg_list, .GlobalEnv)

关键修正点 #

• 用assign()函数实现动态变量命名（替代错误的paste0<-赋值方式），这是R中动态创建变量的标准方法
• 先聚合每个gs_name对应的所有gene_symbol，再通过行名匹配筛选all.deg

示例验证 #

假设输入数据如下：

# 示例lst数据框列表
lst <- list(
  module1 = data.frame(
    gs_name = c("Immune", "Immune", "Metabolic"),
    gene_symbol = c("CD4", "CD8A", "PPARA")
  ),
  module2 = data.frame(
    gs_name = c("Metabolic", "Stress"),
    gene_symbol = c("SREBF1", "HSPA1A")
  )
)

# 示例all.deg数据框
all.deg <- data.frame(
  logFC = c(1.5, -0.9, 2.3, -1.2, 0.7),
  padj = c(0.01, 0.02, 0.005, 0.03, 0.1),
  row.names = c("CD4", "CD8A", "PPARA", "SREBF1", "HSPB1")
)

运行修正代码后，会生成：

• deg_Immune：包含CD4、CD8A的行
• deg_Metabolic：包含PPARA、SREBF1的行
• deg_Stress：因HSPA1A不在all.deg中，生成空数据框（或仅保留匹配行）

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