如何处理 .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

您可以在 myfiles 上使用 lapply/map，并对每个文件应用相同的代码。

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())

如何处理 .csv 数据框列表

How to process a list of .csv dataframe

csv

loops

r

list

export-to-csv