如何在R中每n行创建一个具有相同id的新列？

# 创建一个包含数据的数据框
data <- data.frame(value = 1:20)

# 定义每n行创建一个新列的函数
create_new_column <- function(data, n) {
  # 创建一个新的列用于存储id
  data$id <- NA
  
  # 循环遍历数据框的每一行
  for (i in 1:nrow(data)) {
    # 判断是否是每n行的第一行
    if (i %% n == 1) {
      # 生成一个新的id
      id <- paste0("id_", i)
    }
    
    # 将id赋值给当前行的id列
    data$id[i] <- id
  }
  
  # 返回包含新列的数据框
  return(data)
}

# 调用函数创建新列
result <- create_new_column(data, 3)