如何在R中创建循环来计算每一列的值？

# 创建一个示例数据框
data <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6), C = c(7, 8, 9))

# 创建一个空的向量来存储计算结果
result <- vector("numeric", ncol(data))

# 使用for循环遍历每一列并进行计算
for (i in 1:ncol(data)) {
  result[i] <- sum(data[, i])  # 这里以计算每一列的和为例
}

# 打印计算结果
print(result)

# 创建一个示例数据框
data <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6), C = c(7, 8, 9))

# 使用apply函数对每一列进行计算
result <- apply(data, 2, sum)  # 这里以计算每一列的和为例

# 打印计算结果
print(result)