Как я могу прочитать несколько CSV-файлов и сохранить номер в имени файла для каждого?

Question

У меня есть несколько файлов CSV в папке, ни один из которых не имеет заголовка. Я хочу сохранить порядок, указанный номером в конце файла. Имена файлов: «output-1.csv», «output-2.csv» и т. Д. Есть ли способ включить имя файла каждого CSV, чтобы я знал, какие данные соответствуют какому файлу. Ответ [здесь] [1] приближается к тому, что я хочу.

library(tidyverse)

#' Load the data ----
mydata <-
  list.files(path = "C:\\Users\\Documents\\Manuscripts\\experiment1\\output",  
   pattern = "*.csv") %>%
  map_df( ~ read_csv(., col_names = F))
mydata

Answer 1

Вы можете использовать:

library(tidyverse)

mydata <- list.files("C:\\Users\\Documents\\Manuscripts\\experiment1\\output", 
pattern = ".csv$", full.names = T) %>% 
  set_names(str_sub(basename(.), 1, -5)) %>% 
  map_dfr(read_csv, .id = "file")