如何处理 .csv 数据框列表

Question

对不起这里的新手问题，我写了一系列代码来处理一个 .csv 数据帧。

这是代码（示例版本）的样子：

MyFile <- read.csv(tk_choose.files(caption = "Choose CSV files from directory",),header = TRUE)%>% # 
 Select Input CSV Data
 transmute(A)%>% 
 summarise_all(sum,)%>%
 write.csv(file = choose.files()) # Output As CSV File)

这是输出 CSV 文件中的输出内容：

但现在我需要将这些代码系列应用到 .csv 数据列表而不是一个。

我设法使用了代码：

temp = tk_choose.files(caption = "Choose CSV files from directory",)
myfiles = lapply(temp, read.delim)

将这些 .csv 文件作为列表导入，但有什么方法可以应用相同的代码 （即。

transmute(A)%>% 
summarise_all(sum,)%>%

) 到列表中的所有 .csv 文件并将结果组合在一起？ （即。

            A
file1   658839755
file2   1541654313
file3   4643213843

)

谢谢

Answer 1

您可以使用lapply/map 而不是myfiles，并将相同的代码应用于每个文件。

library(dplyr)
purrr::map(myfiles, ~.x %>% transmute(A)%>% 
                     summarise_all(sum) %>%
                     write.csv(file = choose.files())) 

但是，这可能更简单

purrr::map(myfiles, ~.x %>% summarise(A = sum(A)) %>% 
                      write.csv(file = choose.files())