R语言数据处理(四)

R语言数据处理(四)

  • [1. 表格合并](#1. 表格合并)

1. 表格合并

🚀🚀🚀代码功能: 从指定文件夹中读取所有 .xlsx 文件,并提取每个文件中特定行和列的数据,然后将这些数据合并到一个最终的数据框中,最后将合并后的数据写入新的 .xlsx 文件中。

r 复制代码
##*##----------------------------------------------------------------------------------------
# @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)
相关推荐
投笔丶从戎21 分钟前
Kotlin Multiplatform--01:项目结构基础
android·开发语言·kotlin
OpenC++31 分钟前
【C++QT】Buttons 按钮控件详解
c++·经验分享·qt·leetcode·microsoft
杜小暑1 小时前
动态内存管理
c语言·开发语言·动态内存管理
想不明白的过度思考者1 小时前
Java从入门到“放弃”(精通)之旅——JavaSE终篇(异常)
java·开发语言
我真的不会C1 小时前
QT窗口相关控件及其属性
开发语言·qt
CodeCraft Studio1 小时前
Excel处理控件Aspose.Cells教程:使用 Python 在 Excel 中进行数据验
开发语言·python·excel
火柴盒zhang1 小时前
websheet之 编辑器
开发语言·前端·javascript·编辑器·spreadsheet·websheet
景天科技苑2 小时前
【Rust】Rust中的枚举与模式匹配,原理解析与应用实战
开发语言·后端·rust·match·enum·枚举与模式匹配·rust枚举与模式匹配
时间之城2 小时前
笔记:记一次使用EasyExcel重写convertToExcelData方法无法读取@ExcelDictFormat注解的问题(已解决)
java·spring boot·笔记·spring·excel
阿让啊2 小时前
C语言中操作字节的某一位
c语言·开发语言·数据结构·单片机·算法