每天学一点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 = ",")
仅需更改代码最初的工作路径以及最后导出汇总文件路径即可