R语言新手求助：用apply函数按两分钟分组求流量均值并存入列表

嘿，刚接触R的话这个需求其实挺常见的，我来一步步教你怎么用apply系列函数搞定它～

首先咱们先模拟一下你的数据场景，方便后续演示：

# 构造示例数据框，时间从00:01:00开始，每分钟一条，共10条
set.seed(123) # 设随机种子让结果可复现
time_seq <- seq(as.POSIXct("2024-01-01 00:01:00"), by = "min", length.out = 10)
flow_data <- sample(1:10, 10, replace = TRUE)
df <- data.frame(Time = time_seq, Flow = flow_data)

关键步骤1：生成每两分钟的分组索引 #

因为你的数据是按每分钟顺序排列的，咱们可以直接把每2条数据归为一组。这里用gl()函数生成分组标签：

# 生成分组：n是总组数，k是每组的元素个数，length是总数据行数
groups <- gl(n = ceiling(nrow(df)/2), k = 2, length = nrow(df))

如果你的总数据行数是奇数（比如最后只剩1分钟的数据），这个方法会自动把最后单独的那一条归为一组，均值就是它本身，很贴心～

方法一：用tapply计算均值并转成列表 #

tapply是apply家族里专门用来对向量按分组做计算的函数，咱们直接用它来求每组的均值，最后转成列表：

# 计算每两分钟的流量均值，转成列表
two_min_mean_list <- as.list(tapply(df$Flow, groups, mean))

运行后two_min_mean_list就是你要的存储均值的列表啦～

方法二：用split + lapply实现 #

如果你更习惯分步操作，也可以先把流量数据按分组拆分成子列表，再用lapply逐个求均值：

# 先把Flow按分组拆分成多个子列表
split_flow <- split(df$Flow, groups)
# 对每个子列表求均值，直接得到列表
two_min_mean_list <- lapply(split_flow, mean)

重要小提示 #

• 一定要确保你的Time列是按时间顺序排列的！如果原始数据乱序了，先排序：df <- df[order(df$Time), ]
• 如果你的Time是字符型（比如原始数据是"00:01:00"这种字符串），要先转成时间格式：df$Time <- as.POSIXct(df$Time, format = "%H:%M:%S")

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