如何用lapply批量重命名R工作区中数据集的列名

First, ensure your datasets are loaded correctly with header=FALSE (matching your single-file setup—omitting this can cause column count mismatches):

# Load all datasets, treating first row as data (not headers)
datasets <- lapply(filepaths_list, read.csv, header = FALSE)

Next, define a helper function that renames columns of a single data frame and returns the modified frame (this avoids the common mistake of returning only column names):

rename_dataset_cols <- function(df) {
  # Assign column names: first column = Y, columns 2-31 = X1-X30
  colnames(df) <- c("Y", paste0("X", 1:30))
  # Return the updated data frame
  return(df)
}

Apply this function to every data frame in your list using lapply:

# Batch rename columns across all datasets
datasets_renamed <- lapply(datasets, rename_dataset_cols)

Common Pitfalls You Might Have Hit #

• Returning only column names: If you ran colnames(x) <- ... inside lapply without explicitly returning the data frame, the function would output just the column name vector instead of the modified dataset.
• Incorrect loading: Forgetting header=FALSE when reading files can lead to data frames with wrong column counts (e.g., first row treated as headers), causing errors when assigning 31 names.
• Invalid subscripting: Trying to modify list elements directly with incorrect syntax inside lapply can trigger the "invalid subscript type 'list'" error.

Verify the Result #

Check the column names of the first dataset to confirm success:

colnames(datasets_renamed[[1]])

This should output: [1] "Y" "X1" "X2" ... "X30"

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