创建一个函数来迭代R中一个大列表中的可存储元素

我正在尝试创建一个函数，以便在将多个数据集合并到xts之前，自动执行一些基本的格式设置。我可以大量读取文件，并创建一个大的TIBLES列表。但是我很难创建一个函数来遍历这个列表。当我将单个文件读入df时，我一直在运行以下操作：

---

df如果它是
列表
，我们可以使用
lappy
在
列表
上循环，并使用匿名函数调用应用该函数

lst2 <- lapply(lst1, function(df) {
     df<-df[!(duplicated(df$DateTime)),]
     xts(df[,-1], order.by = as.POSIXct(df$DateTime, format="%d-%b-%y %H:%M:%S")) 
  })

merge.zoo
支持多路合并，因此如果
L
是一个数据帧列表，并且索引总是被称为
DateTime
，那么：
as.xts（do.call（“merge”，lapply（L，read.zoo，index=“DateTime”，tz=”“，format=“%d-%b-%y%H:%M:%S”）
谢谢！我把事情弄得比需要的复杂得多。
Reduce(merge, lst2)