Извлечение данных из указанных c ячеек в нескольких файлах Excel - R

Question

Мне нужно извлечь данные (дата, время) из двух ячеек (E6: E7) из нескольких файлов Excel и затем сохранить эти данные во фрейме данных (с отдельными столбцами для даты и времени).

Ниже приведен код, который я пробовал.

setwd("C:/Users/tsamuels/Desktop/PDRA - Collins/growth_rate_folder")
file.list <- list.files(path=".", pattern="\\d.xlsx$")
df.list <- lapply(file.list, read_excel(path=".", sheet = 1, range = "E6:E7", col_names = FALSE,
                                        col_types = NULL))

Любая помощь приветствуется!

Answer 1

Делая некоторые предположения о ваших файлах и о том, как вы хотите выводить:

files <- list.files('.', pattern = '*.xlsx', recursive = TRUE)
df1 <- lapply(files, 
              function(x) {readxl::read_xlsx(x, sheet = 1, range = "E6:E7", col_names = FALSE)}) %>% 
  bind_cols %>% 
  t %>% 
  data.frame

colnames(df1) <- c('date', 'time')
rownames(df1) <- files

Здесь bind_cols (или вам нужно bind_rows?) Возьмет ваш список данных и объединит их

Answer 2

Я не использую read_excel, а вы не предоставили MRE , поэтому я не смог проверить его, но вы можете попробовать это.

df.list <- lapply(file.list, read_excel, sheet=1, range="E6:E7", col_names=FALSE, col_types = NULL))