如何在R中为数据框每8行分组添加label列

下面提供两种简洁的实现方式，满足你每8行对应一个分组索引的需求：

方法一：基础R（Base R）实现 #

无需额外安装包，直接用内置函数完成：

# 生成你的数据集
df <- data.frame(value=runif(101, 1, 99),col1=sample(LETTERS, 101, TRUE),col2=sample(LETTERS, 101, TRUE))

# 添加label分组列
df$label <- ceiling(seq(nrow(df)) / 8)

原理说明：seq(nrow(df))生成从1到101的行号序列，除以8后用ceiling()向上取整，自动将每8行归为同一组，最后不足8行的部分会单独成为一组。

方法二：dplyr（Tidyverse）实现 #

如果你习惯使用tidyverse工具链，可以用dplyr更直观地操作：

library(dplyr)

# 生成数据集（如果已生成可跳过）
df <- data.frame(value=runif(101, 1, 99),col1=sample(LETTERS, 101, TRUE),col2=sample(LETTERS, 101, TRUE))

# 新增label列
df <- df %>%
  mutate(label = ceiling(row_number() / 8))

原理说明：row_number()获取每行的行号，后续逻辑和基础R方法一致，通过向上取整实现分组。

你可以通过head(df, 10)或tail(df, 5)查看结果，验证分组是否符合预期。

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