如何在R中将所有列配对一次而不重复？

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

# 提取数据框中的所有列
columns <- colnames(data)

# 使用combn函数生成所有列的配对组合
pair_combinations <- combn(columns, 2)

# 使用apply函数对生成的配对组合进行迭代
apply(pair_combinations, 2, function(pair) {
  # 获取配对的列名
  col1 <- pair[1]
  col2 <- pair[2]
  
  # 进行相应的操作，例如计算两列的和
  sum_result <- sum(data[[col1]], data[[col2]])
  
  # 输出结果
  cat("Pair:", col1, "-", col2, "\n")
  cat("Sum:", sum_result, "\n\n")
})