如何在R中循环两个不同的数据集来计算分数？

# 假设数据集如下：
dataset1 <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6))
dataset2 <- data.frame(A = c(7, 8, 9), B = c(10, 11, 12))

# 创建一个空的数据框来存储结果
results <- data.frame()

# 使用for循环遍历每一行
for (i in 1:nrow(dataset1)) {
  # 计算每行的分数
  score_A <- dataset1$A[i] / dataset2$A[i]
  score_B <- dataset1$B[i] / dataset2$B[i]
  
  # 将结果添加到结果数据框中
  results <- rbind(results, data.frame(Score_A = score_A, Score_B = score_B))
}

# 打印结果
print(results)

# 使用apply函数计算分数
results <- data.frame(
  Score_A = apply(dataset1['A'], 1, function(x) x / dataset2['A']),
  Score_B = apply(dataset1['B'], 1, function(x) x / dataset2['B'])
)

# 打印结果
print(results)