如何在R中循环使用slice分割含system sleep.的CSV为独立CSV？

首先确保加载tidyverse包（slice和write_csv都属于这个工具集）：

library(tidyverse)

读取目标CSV文件：

df <- read_csv("datafile.csv") # 推荐用read_csv，比基础read.csv更适配标准CSV格式

定位所有包含system sleep.的分割行索引：

split_rows <- which(df$ID == "system sleep.")

构造每个数据块的起始与结束索引范围：

# 每个块的起始位置：从文件开头，或分割行的下一行
starts <- c(1, split_rows + 1)
# 每个块的结束位置：到分割行的上一行，或文件最后一行
ends <- c(split_rows - 1, nrow(df))

循环处理所有数据块并保存为独立CSV文件：

for (i in seq_along(starts)) {
  # 跳过空块（比如文件最后一行是分割行时，会出现起始索引大于结束索引的情况）
  if (starts[i] > ends[i]) next
  
  # 提取当前数据块
  chunk <- slice(df, starts[i]:ends[i])
  
  # 生成合法文件名：替换时间中的冒号为横杠，避免系统不允许的特殊字符
  start_time <- str_replace_all(chunk$Time[1], ":", "-")
  filename <- paste0("data_chunk_", start_time, ".csv")
  
  # 保存文件
  write_csv(chunk, file = filename)
}

关键修正点 #

• 修复索引逻辑错误：原代码1:M2-1会先生成1到M2的序列再逐个减1，正确写法应为1:(M2-1)，明确索引范围。
• 覆盖全量数据：不仅处理第一个分割点前的内容，还包含中间所有块和最后一个分割点后的剩余数据。
• 增加异常防护：跳过空块避免报错，适配文件结尾是分割行的情况。
• 优化文件名：替换时间中的特殊字符，确保文件名在所有操作系统中合法。

内容的提问来源于stack exchange，提问作者Nacho