如何编辑循环以将每个样本的平均值保存到R中的矩阵中？

# 示例数据框
df <- data.frame(
  Sample = rep(1:3, each = 4), # 样本编号
  Value = runif(12) # 每个样本的观测值
)

# 初始化一个矩阵来保存平均值
num_samples <- nlevels(factor(df$Sample)) # 计算样本数量
avg_matrix <- matrix(NA, nrow = num_samples, ncol = 1) # 创建一个矩阵，初始值为NA

# 使用循环计算每个样本的平均值并保存到矩阵中
for (i in 1:num_samples) {
  avg_matrix[i, 1] <- mean(df[df$Sample == i, "Value"])
}

# 将行名设置为样本编号
rownames(avg_matrix) <- levels(factor(df$Sample))

# 打印结果
print(avg_matrix)