R语言中为列表内各数据集设置表头或添加顶部固定行的方法

你当前的批量加载包代码是错误的，library()函数执行时返回的是加载成功与否的逻辑值，把这些值塞进向量完全起不到批量加载的作用。正确写法如下：

# 先定义需要加载的包名向量
pkg_list <- c("stats", "plyr", "dplyr", "tidyverse", "tibble", "readr",
              "leaps", "lars", "stringi", "purrr", "parallel", "vroom")
# 用lapply批量加载
lapply(pkg_list, library, character.only = TRUE)

为什么之前的lapply没生效 #

你的代码只生成了修改后的数据集列表，但没有将结果重新赋值给datasets，原对象自然不会有变化，必须把lapply的返回值赋值回去才会永久修改。

方案1：直接将第3行设为表头（最直接） #

提取每个数据集的第3行作为列名，删除前3行保留实际数据：

datasets <- lapply(datasets, function(df) {
  # 把第3行内容设为列名
  colnames(df) <- df[3, ]
  # 删除前3行（原第1、2、3行），保留后续数据行
  df <- df[-c(1:3), ]
  return(df)
})

方案2：按需求删除第2行、交换行位置后设表头 #

如果需要保留原第1行的哑变量数据，按要求调整行顺序后再设置表头：

datasets <- lapply(datasets, function(df) {
  # 删除第2行
  df <- df[-2, ]
  # 交换第1行（原第1行）和第2行（原第3行）的位置
  df <- df[c(2, 1, 3:nrow(df)), ]
  # 将现在的第1行设为列名
  colnames(df) <- df[1, ]
  # 删除作为列名的行，保留数据
  df <- df[-1, ]
  return(df)
})

关于rbind+apply类函数的疑问 #

不需要用rbind，rbind是用来合并多个数据集的行，和你当前调整单个数据集内部结构的需求不匹配。用lapply（或tidyverse体系的purrr::map）就足够完成所有操作。

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