如何在R中编写函数批量处理多数据框的DOB与StudentID列？

你可以写一个自定义函数来批量处理这些数据框，避免重复编写代码：

clean_student_data <- function(df) {
  # 按指定格式解析DOB为日期型后转字符
  df$DOB <- as.character(as.Date(df$DOB, format = "%m/%d/%y"))
  # 将StudentID转换为数值型
  df$StudentID <- as.numeric(df$StudentID)
  # 返回处理后的数据集
  return(df)
}

使用方法 #

单个数据框处理 #

直接把需要处理的数据框传入函数，覆盖原对象即可：

df1 <- clean_student_data(df1)
df2 <- clean_student_data(df2)
df3 <- clean_student_data(df3)
df4 <- clean_student_data(df4)
df5 <- clean_student_data(df5)

批量处理多个数据框 #

如果想更高效，把所有数据框放到一个列表里，用lapply批量处理后再批量赋值回原对象：

# 把所有数据框存入列表
df_list <- list(df1, df2, df3, df4, df5)
# 批量处理所有数据框
processed_dfs <- lapply(df_list, clean_student_data)
# 将处理后的数据框重新赋值回原变量名
list2env(setNames(processed_dfs, paste0("df", 1:5)), envir = .GlobalEnv)

这个函数只会修改DOB和StudentID两列，数据框中的其他变量完全不受影响，和你手动执行的代码效果完全一致。

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