R语言：怎么把同一excel中不同Sheet的数据提取到一起？

怎么把同一excel中不同Sheet的数据提取到一起？

问题描述：这一个excel中共有32个Sheet，我要将每个sheet中的几列提取出来到一个新的excel中。

# 加载所需的库
library(readxl)
library(data.table)
library(writexl)

rm(list = ls()) #Clean all
# 指定Excel文件的路径
file_path <- "Data File.xlsx"

# 获取所有工作表的名称
sheet_names <- excel_sheets(file_path)

# 创建一个空的数据框，用于存储结果
combined_df <- data.frame(matrix(numeric(0), nrow = 0, ncol = 5))

# 循环读取每个工作表
for(sheet in sheet_names) {
  #sheet = '#1.China Agric.University' #这是第一个Sheet的名称用于测试
  temp_df <- read_excel(file_path, sheet = sheet)
  temp_df = temp_df[12:16] #提取每一个sheet的12-16列
  
  # 将当前工作表的数据添加到组合数据框中
  combined_df <- rbind(combined_df, temp_df)
  cat("Sheet:", sheet, "- Rows:", nrow(temp_df), "\n")
}

write_xlsx(combined_df,"E:\\1_Research\\8_Erhai\\3_Data\\3_我整理\\Site2data.xlsx")