如何按组复制n次行并更改R中的某个特定列值？

# 创建一个示例数据框
df <- data.frame(Group = c("A", "B", "C"),
                 Value = c(1, 2, 3))

# 设置要复制的次数
n <- 3

# 创建一个空的数据框用于存储结果
result <- data.frame(Group = character(),
                     Value = numeric())

# 循环遍历每一行
for (i in 1:nrow(df)) {
  # 获取当前行的组和值
  group <- df$Group[i]
  value <- df$Value[i]
  
  # 复制n次行并更改特定列的值
  for (j in 1:n) {
    # 创建一个新行
    new_row <- data.frame(Group = group,
                          Value = value + j)
    
    # 将新行添加到结果数据框中
    result <- rbind(result, new_row)
  }
}

# 打印结果
print(result)