R 语言数据处理（IV）

##*##---------------------------------------------------------------------------------------- # @author:Jackson Zhao # @time：2024年5月26日21:22:04 # @description：从指定文件夹中读取所有 .xlsx 文件， # 并提取每个文件中特定行和列的数据，然后将这些数据合并到一个最终的数据框中， # 最后将合并后的数据写入新的 .xlsx 文件中。 library(readxl) library(dplyr) library(stringr) setwd("D:/Datasets/GD/sample result/TotalEffect") file_list <- list.files(pattern = "*.xlsx") # 初始化一个空的列表来存储所有文件的数据框 data_list <- list() # 遍历所有文件，提取所需的数据 for (file in file_list) { data <- read_excel(file, col_names = FALSE) data <- as.data.frame(data) # 提取第5、8、9和10行的第5列的数据 values <- data[c(5, 8, 10, 11), 5] values <- round(as.numeric(values), 2) # 提取第5、8、9和10行的第2列作为行名，并进行格式化 row_names <- data[c(5, 8, 10, 11), 2] df <- data.frame(values) colnames(df) <- file rownames(df) <- row_names data_list[[file]] <- df } final_data <- bind_cols(data_list) print(final_data) write.xlsx(final_data, "Total Effect.xlsx", sheetName = "Total_Effect" , colNames = TRUE, rowNames= TRUE, append = TRUE)