如何让R语言自定义函数接收列名参数直接修改数据框日期列？

问题本质 #

R默认采用按值传递的参数传递规则，你直接向函数传入mydata$today_date时，函数拿到的是该列的副本，对副本的修改不会同步到全局环境的原数据框，因此需要手动赋值回原列。
另外你当前代码还存在一个格式匹配错误：原数据中年份为2位数字（如21），%Y是匹配4位年份的格式符，需要改为小写%y才能正确识别为2021年，否则会得到错误的0021年。

改造方案 #

方案1：返回修改后的数据框（推荐，符合R函数式编程规范） #

这种方式无隐性副作用，逻辑清晰易调试：

convert_date_col <- function(df, col_name, date_format = "%d.%m.%y") {
  df[[col_name]] <- as.Date(df[[col_name]], tryFormats = date_format)
  return(df)
}

调用示例：

# 直接赋值覆盖原数据框即可完成修改
mydata <- convert_date_col(mydata, "today_date")

方案2：直接修改全局环境原数据框（不推荐，副作用不透明） #

如果确实需要无需手动赋值的调用方式，可以通过操作全局环境变量实现：

myfun <- function(df_name, col_name, date_format = "%d.%m.%y") {
  # 从全局环境读取原数据框
  target_df <- get(df_name, envir = .GlobalEnv)
  target_df[[col_name]] <- as.Date(target_df[[col_name]], tryFormats = date_format)
  # 写回全局环境覆盖原数据框
  assign(df_name, target_df, envir = .GlobalEnv)
}

调用示例：

# 传入数据框名称和列名的字符串格式，调用后原数据框直接被修改
myfun("mydata", "today_date")

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