R 如何将函数应用于数据帧列表

我有一个数据框列表，比如说30个（一个月），我必须做一些计算修改，从每个元素的列表中填写一些表格，所以我不想每次都替换下一个数据框的名称，我想自动执行，我想了一下，但它不起作用

注：我的代码没有任何问题，因为我已经在一个数据帧上检查了很多次，我的问题是如何在每个数据帧上重复这个代码（以及许多其他行，这只是我原始代码的一小部分，包含500多行），我如何才能访问列表中的元素

test<-list(day01,day02....,day30)
lapply(seq_along(test), function(x) {
name=deparse(substitute(test[x])) 
jr=as.numeric(substr(name,3,4))
n<-length(test[x]$Date_Heure) 
colnames(test[x])[11]<-"Timestamp"
colnames(test[x])[12]<-"Presence"
#tab$time<-as.POSIXct(with_tz(ymd_hms(Date_Heure, tz = "UTC"),"Europe/Paris"))
for (i in 1:n) 
{
test[x]$Timestamp[i]<-with_tz(ymd_hms(test[x]$Time[i], tz = "UTC"),"Europe/Paris")
} 
})

test
#如果对于单个数据帧x，这很好：
name=deparse（替换（x））
jr=作为数字（子字符串（名称，3,4））
nremember:in R calling by values在您的行中：
colnames（test[x]）[11]否索引11和12，这意味着我想要的列编号11和12mofify@jogo，那么我应该如何编辑我的代码呢？@jogo的评论如下：您的函数当前没有返回任何内容。对于我代码的这一小部分，至少它对更改colums的名称有效，但我收到警告“所有格式都无法解析。找不到任何格式”。但我还必须看看它对我的所有原始代码是否有效*******************************另外，我如何获得对列表上一个元素的访问权限，比如说，我想知道我今天工作时昨天在场的人？？？在像我的modDF（）这样的函数中，没有办法做到这一点。最终，你可以使用另一个对象来处理你的数据（例如，用一个额外的列来表示日期的数据帧，这是一个很长的数据帧）好的，我明白了，但是你能不能帮我更正一下这个代码，我只想循环我的列表（这样我可以返回到上一个数据帧）
test=list（day01，day02…，day30）。对于（测试中的p）{}
，但当我想使用p作为数据帧时，我不能，就像p$column1一样，代码中的问题是，更改p对原始列表没有影响，因为p是for循环的内部变量（也是for是一个函数），例如：
L如果我当时编写
table=p
，这不是问题，我将处理table，然后处理element=table，但是如何提取elemnet以将其放入辅助变量“table”中呢？？
# if for a single dataframe x this is well:
name=deparse(substitute(x)) 
jr=as.numeric(substr(name,3,4))
n<-nrow(x) # length(x$Date_Heure) 
colnames(x)[11]<-"Timestamp"
colnames(x)[12]<-"Presence"
#tab$time<-as.POSIXct(with_tz(ymd_hms(Date_Heure, tz = "UTC"),"Europe/Paris"))
for (i in 1:n) x$Timestamp[i] <- with_tz(ymd_hms(x$Time[i], tz = "UTC"),"Europe/Paris")

modDF <- function(x) {
  name=deparse(substitute(x)) 
  jr=as.numeric(substr(name,3,4))
  n<-nrow(x) # length(x$Date_Heure) 
  colnames(x)[11]<-"Timestamp"
  colnames(x)[12]<-"Presence"
  #tab$time<-as.POSIXct(with_tz(ymd_hms(Date_Heure, tz = "UTC"),"Europe/Paris"))
  for (i in 1:n) x$Timestamp[i] <- with_tz(ymd_hms(x$Time[i], tz = "UTC"),"Europe/Paris")
  return(x)
}
List.of.DF <- lapply(List.of.DF, modDF)