R语言封装dataframe行转换函数实现批量行格式处理

你之前的循环报错核心是操作逻辑、语法写法存在多处错误，以下是完全对齐你原有单行处理逻辑的封装代码，可直接批量运行。

首先封装通用单行处理函数，逻辑和你处理MED1的步骤完全一致，无额外改动：

process_row <- function(input_df, row_index) {
  # 提取指定行并重置行名
  single_row <- input_df[row_index, ]
  rownames(single_row) <- NULL
  
  # 转置、转换为数据框，将原列名转为Fusion_Type字段
  single_row <- t(single_row)
  single_row <- as.data.frame(single_row)
  single_row <- tibble::rownames_to_column(single_row, "Fusion_Type")
  
  # 清洗Fusion_Type字段、转换为因子类型，重命名数值列为TPM
  single_row$Fusion_Type <- gsub("\\..*", "", single_row$Fusion_Type)
  single_row$Fusion_Type <- as.factor(single_row$Fusion_Type)
  names(single_row)[names(single_row) == "V1"] <- "TPM"
  
  return(single_row)
}

批量执行方法 #

注意将代码中data_frame_merge替换为你自己的原始数据框变量名即可。

方法1：for循环写法（和你原有代码逻辑衔接最顺畅） #

# 初始化存储结果的空列表
lsEOG <- list()

# 遍历原始数据框所有行
for (i in 1:nrow(data_frame_merge)) {
  lsEOG[[i]] <- process_row(input_df = data_frame_merge, row_index = i)
  # 可选：给列表元素命名，方便后续按索引查找
  names(lsEOG)[i] <- paste0("Row_", i)
}

方法2：lapply简洁写法（无需手动初始化列表，出错概率更低） #

lsEOG <- lapply(1:nrow(data_frame_merge), function(i) {
  process_row(input_df = data_frame_merge, row_index = i)
})
# 可选：给列表元素命名
names(lsEOG) <- paste0("Row_", 1:nrow(data_frame_merge))

原代码报错原因说明 #

• 错误操作原数据框：循环里直接对原数据框df的行名、行内容反复修改，没有单独存储当前处理的单行数据，会导致原数据被逐次覆盖，后续循环取数完全错乱
• 行名赋值逻辑错误：rownames(df)[i] <- NULL是试图给单个行名位置赋长度为0的NULL值，R不支持这种操作，正确的重置行名逻辑是对提取出的单行临时变量执行rownames(临时变量) <- NULL
• 列表赋值语法错误：R语言中列表取子集赋值需要使用双中括号[[，原代码写的lsEOG(df[i])<- df[i]是把列表名当函数调用，属于语法错误
• 变量名不统一：循环代码里一会引用df_main一会引用df，变量指代混乱也会触发对象不存在的报错

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