R 如何使用mapply对数据帧列表中的列进行变异

我有一个数据帧列表-此列表中的一些数据帧要求将其列变异为日期列。我想知道是否可以用mapply来做这件事

这是我的尝试（files1是数据帧列表，c（“data，data1”）是files1中数据帧的名称，c（“adfFlowDate”，“datedatedate”）是各个数据帧中列的名称：

files2 <- repair_dates(files1, c("data, data1"), c("adfFlowDate","datedate"))

---

files2这里的设置相当复杂，在另一个函数中调用
mapply
中的匿名函数，该函数包含三个参数，所有参数都与单个嵌套对象相关

就我个人而言，我不会通过适应让
mutate
在这里工作所需的非标准评估来增加这种复杂性（尽管这是可能的）。也许是这样的（尽管没有任何可复制的数据很难判断）——

repair\u dates这里的设置相当复杂，在另一个函数中调用
mapply
中的匿名函数，该函数包含三个参数，所有参数都与单个嵌套对象相关

就我个人而言，我不会通过适应让
mutate
在这里工作所需的非标准评估来增加这种复杂性（尽管这是可能的）。也许是这样的（尽管没有任何可复制的数据很难判断）——

repair\u dates在
as.Date（y，origin=
）中是什么
y
？抱歉，这意味着iHi MGJ，如果您提供带有
dput（）
和预期输出的示例数据，将更容易提供帮助。也许您可以尝试
dput（lappy（files1，head））
。您可以提出问题并粘贴输出。您可以用三个反勾（```````````````````````````````````````来获得更好的格式。有关更多信息，请参阅
as.Date（y，origin=
中的
y
是什么？抱歉，这意味着iHi MGJ，如果您使用
dput（）提供示例数据，会更容易获得帮助。）
和预期的输出。也许您可以尝试使用
dput（lappy（files1，head））
。您可以将问题和输出粘贴在一起。您可以用三个反勾（````````）环绕它以获得更好的格式。有关详细信息，请参阅。
repair_dates <- function(data, df_list, col_list) {
mapply(function(n, i) data[[n]] <<- data[[n]] %>% mutate(i = as.Date(i, origin = "1970-01-01")), df_list, col_list)
return(data)
}

repair_dates <- function(data, df_list, col_list) 
{
  mapply(function(n, i) {
           data[[n]][[i]] <- as.Date(data[[n]][[i]], origin = "1970-01-01")
           return(data[[n]])
         }, df_list, col_list, SIMPLIFY = FALSE)
}