Вы можете попробовать: Для этого примера я сделал xlsx с 3 листами.
library(readxl)
# Get the sheets count
sheets <- excel_sheets("some.xlsx")
for (i in 1 : length(sheets)) {
shts <- paste("x", i, sep = ".")
# Read every single sheet and assign to variable x1, x2, x3 etc...
assign(shts, read_excel("c:/Temporal/TEST.xlsx", sheet=sheets[i]))
}
Результат:
Надеюсь, это поможет!