r - 处理多个 .csv 文件，其中一个的代码，并作为整体输出

Question

我正在使用 R 来总结多个 .CSV 文件中的“A”列，我已经为 1 个 csv 文件准备了代码，无论如何我可以一次处理所有 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)

这是输出的样子

               A
file1   658839755

我想要的是

            A
file1   658839755
file2   1541654313
file3   4643213843

有可能实现吗？

多谢你们

Answer 1

这可能会帮助你

csv_path <-"C:/csvfiles/"# set your path to csv files
    data <- readbulk::read_bulk(directory = csv_path,subdirectories = F,extension = ".csv",data = NULL) #read all files into a data frame

    data %>% 
      group_by(File) %>% #group by file name
      summarise(my.sum=sum(A)) %>% # summarise column A using sum
      write.csv(.,"C:/....") # write to csv if you want