在R中，需要找到8列的最佳组合，每行只能选择一个值

library(gtools)

# 创建一个包含所有可能值的数据框
data <- data.frame(col1 = c(1, 2, 3),
                   col2 = c(4, 5, 6),
                   col3 = c(7, 8, 9),
                   col4 = c(10, 11, 12),
                   col5 = c(13, 14, 15),
                   col6 = c(16, 17, 18),
                   col7 = c(19, 20, 21),
                   col8 = c(22, 23, 24))

# 获取所有可能的组合
combinations <- combinations(nrow(data), 8)

# 初始化最佳组合和最佳组合的得分
best_combination <- NULL
best_score <- Inf

# 遍历所有组合
for (i in 1:nrow(combinations)) {
  # 获取当前组合的列索引
  combination <- combinations[i, ]
  
  # 根据列索引选择对应的值
  selected_values <- data[combination, ]
  
  # 计算当前组合的得分（这里使用了一个简单的示例得分函数，你可以根据实际需求自定义得分函数）
  score <- sum(selected_values)
  
  # 更新最佳组合和最佳得分
  if (score < best_score) {
    best_combination <- selected_values
    best_score <- score
  }
}

# 输出最佳组合和最佳得分
print(best_combination)
print(best_score)