R 如何将函数应用于列表中数据帧存储的特定列

我有一组带有标题的csv文件，但包含不同日期的记录，如

到达时间

时间间隔

塞尔泰姆

戴普泰姆

ActSerTime

8.37

0

8.39

8.40

0.01

8.39

二,

8.40

8.42

0.02

8.40

一,

8.42

8.46

0.04

使用您已经创建的对象

文件

，下面将创建一个列表，列出每天的第二天和第五列的总和

list_of_sums <- lapply(files, function(file){
      df <- read.csv(file) 
      c( sum(df)[, 2]), sum(df)[, 5] )
    })

list\u sums考虑
data.frame（）
inside
lapply
来绑定两列的总和：

path <- "/home/ilanre/Documents/Queue Research Work/"
files <- list.files(path=path, pattern="*.csv")

dfList <- lapply(files, function(f){
     df <- read.csv(paste0(path, f))
     data.frame(SumOfInteraatime = sum(df$interaatime), SumOfActSerTime = sum(df$ActSerTime))
})

dfList <- setNames(dfList, gsub(".csv", "", files))   

路径