Использование R и Tidyverse, Как импортировать лист одного вида из нескольких книг Excel

Question

У меня есть несколько рабочих книг, которые содержат одинаковое количество листов, название листа и данные.Как мне импортировать определенный лист из каждой из этих книг?например, я хочу импортировать только отдельные части вкладки «Результат» из каждой книги.я только хочу импортировать данные из столбца B11: V11 (постоянный для всех листов), но конец каждого из этих столбцов является динамическим для каждой рабочей книги.Спасибо за вашу помощь.

Answer 1

попробуйте использовать следующий код:

FILES <- dir(pattern = ".xslx$")

# Make a function in order to get the data in range from "Result tab"
read_range <- function(excel_file,range_="B11:V11"){
  sheets <- excel_sheets(excel_file)
  # Assuming that there's always a "Result" tab
  # and only one tab with this name
  sheet_id <- grep("Result",sheets)
  return(read_excel(excel_file,col_names= FALSE,sheet=sheet_id,range=range_))
} 

# Iterate in sheets vector 
data <- lapply(FILES,read_range)

# `data` is a list, yo can get the dataframe with rbind
df <- do.call("rbind",data)

Надеюсь, это поможет