选择特定的列并将csv名称添加到最终的csv文件

Question

我试图从许多csv文件中提取相同的前16列数据，这些csv文件位于不同的子目录中，并将csv文件名添加到最终的每行CSV。我的代码：

getwd() 
root<-list.dirs(".", recursive=TRUE) 
# get list of files ending in csv in directory root 
dir(root, pattern='csv$', recursive = TRUE, full.names = TRUE) %>% 
# read files into data frames 
lapply(FUN = read.csv) %>% 
# bind all data frames into a single data frame 
rbind_all %>% 
# write into a single csv file 
write.csv("all.csv") 

我想知道在哪里放置选择列和添加文件名的代码。

答：

getwd() 
root<-list.dirs(".", recursive=TRUE) 
# get list of files ending in csv in directory root 
dir(root, pattern='csv$', recursive = TRUE, full.names = TRUE) %>% 
# read files into data frames, select first 16 columns and add filename 
lapply(FUN = function(p) read.csv(p) %>% select(1:16) %>%  

mutate(file_name=p)) %>%  
# bind all data frames into a single data frame 
rbind_all %>% 
# write into a single csv file 
write.csv("all.csv") 

Answer 1

你应该在您使用lapply的时候做，因为这是最后一步，您可以访问文件名/路径：

dir(root, pattern='csv$', recursive = TRUE, full.names = TRUE) %>% 
    lapply(FUN = function(p) read.csv(p) %>% select(1:16) %>% mutate(file_name=p)) %>% 
    bind_rows() %>% 
    write.csv("all.csv")