【自用】如何使用R语言批量统计Excel信息

每天学一点R语言!

# 设置包含CSV文件的文件夹路径
folder_path <- "C:/Users/admin/Desktop/SBY/SBY_point_100/CSV文件"

# 获取文件夹中的所有CSV文件列表
csv_files <- list.files(folder_path, pattern = ".csv", full.names = TRUE)

# 创建一个空的结果向量,用于存储每个文件的数据点数量
data_point_counts <- numeric(length(csv_files))

# 循环处理每个CSV文件
for (i in 1:length(csv_files)) {
  # 读取CSV文件
  data <- read.csv(csv_files[i])
  
  # 计算数据点数量,这里假设数据点是数据框的行数
  data_point_count <- nrow(data)
  
  # 存储结果
  data_point_counts[i] <- data_point_count
  
  # 打印结果或执行其他操作
  cat("文件", i, "中的数据点数量为:", data_point_count, "\n")
}

# 将结果保存到一个文件中
result_data <- data.frame(File = csv_files, DataPoints = data_point_counts)
write.table(result_data, file = "C:/Users/admin/Desktop/SBY/SBY_point_100/result_data.csv", row.names = FALSE, na = "", col.names = FALSE, sep = ",")

仅需更改代码最初的工作路径以及最后导出汇总文件路径即可

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值