为R中的每个样本添加每组中的数字

# 创建一个包含样本和组的数据框
data <- data.frame(sample = c(1, 2, 3, 4, 5),
                   group = c("A", "A", "B", "B", "B"))

# 定义一个函数，用于为每个样本添加每组中的数字
add_numbers <- function(data) {
  # 获取唯一的组
  groups <- unique(data$group)
  
  # 循环遍历每个组
  for (group in groups) {
    # 获取当前组的索引
    group_indices <- which(data$group == group)
    
    # 获取当前组的数字
    numbers <- 1:length(group_indices)
    
    # 将数字添加到每个样本中
    data$sample[group_indices] <- data$sample[group_indices] + numbers
  }
  
  return(data)
}

# 调用函数并输出结果
result <- add_numbers(data)
print(result)