Вы можете загрузить все листы из электронной таблицы с помощью readxl
.
library(readxl)
filename <- "myfile.xlsx"
sheets <- readxl::excel_sheets(filename)
data <- lapply(sheets, function(X) readxl::read_excel(filename, sheet = X, skip = 0))
names(data) <- sheets
Вы можете легко применить функции к данным с помощью lapply
из базы R. Просто замените ...
с вашим кодом. Вы можете получить доступ к кадру данных с помощью переменной x
.
lapply(data, function(x){...})