如何使用循环来简化这段R脚本代码。这是一个用于分析年度数据的代码

# 假设年度数据存储在一个名为data的数据框中，其中每一列代表一个年份的数据
data <- data.frame(
  year_2019 = c(1, 2, 3),
  year_2020 = c(4, 5, 6),
  year_2021 = c(7, 8, 9)
)

# 创建一个空的结果向量
result <- c()

# 使用for循环遍历每一列的数据
for (i in 1:ncol(data)) {
  # 获取当前年份的数据列
  column <- data[, i]
  
  # 对当前年份的数据进行分析，这里仅计算数据的总和作为示例
  sum_value <- sum(column)
  
  # 将结果添加到结果向量中
  result <- c(result, sum_value)
}

# 打印结果向量
print(result)