R语言for循环处理多数据帧时报$操作符无效的原因及解法

核心问题是循环变量的对象类型不匹配：

• 你定义的df_summary是存储数据帧名称的字符向量，循环遍历时每次拿到的df是和向量元素一致的字符串（比如第一次循环拿到的是字符串"df1"，不是df1对应的数据帧本身）。
• 字符串属于R中的原子向量，没有可通过$操作符提取的列属性，因此触发Error: $ operator is invalid for atomic vectors的报错。
• 原有逻辑还存在两个细节隐患：
  • 用cbind()拼接向量构造数据帧时，会将所有列统一转为字符类型，哪怕P值列提前转为数值，最终也会变成字符列，后续做数值比较会出现隐式转换的偏差。
  • 初始化汇总表时没有定义列结构，也没有记录每个统计值对应的来源数据帧，最终输出和你预期的长表格式不匹配。

首先修正数据构造的类型问题：

# 构造测试数据帧
df1 <- data.frame(
  gene = c('gene1','gene2','gene3','gene4','gene5','gene6'),
  direction = c('up','up','down','down','down','up'),
  Pvalue = as.numeric(c(0.05,0.06,0.001,0.075,0.11,0.12))
)

df2 <- data.frame(
  gene = c('gene1','gene2','gene3','gene4','gene5','gene6'),
  direction = c('down','up','down','down','up','up'),
  Pvalue = as.numeric(c(0.043,0.001,0.34,0.96,0.001,0.04))
)

# 待处理的数据帧名称向量
df_summary = c('df1','df2')

修正循环逻辑，核心是用get()将循环拿到的字符串转为对应的数据帧实体，同时匹配目标输出结构：

# 初始化空汇总表，提前定义列名
df3 = data.frame(dataframe = character(), number = numeric())

for (df_name in df_summary){
  # 根据名称字符串取出对应的数据帧实体
  current_df <- get(df_name)
  # 统计显著上调、下调的基因数量
  sig_down <- sum(current_df$direction == 'down' & current_df$Pvalue < 0.05)
  sig_up <- sum(current_df$direction == 'up' & current_df$Pvalue < 0.05)
  # 按长表格式合并统计结果
  df3 = rbind(
    df3,
    data.frame(dataframe = df_name, number = sig_down),
    data.frame(dataframe = df_name, number = sig_up)
  )
}

最终生成的df3和你预期的输出完全一致：

dataframe number
1       df1      1
2       df1      0
3       df2      1
4       df2      3

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