如何获取列表中一组data.frame对象索引的可能组合？

# 定义一个函数，用于获取列表中一组data.frame对象索引的可能组合
get_combinations <- function(lst) {
  n <- length(lst)  # 获取列表的长度
  indices <- seq_len(n)  # 生成从1到n的整数序列
  combinations <- list()  # 创建一个空的列表，用于存储索引的组合
  
  # 定义一个递归函数，用于生成索引的组合
  generate_combinations <- function(curr_index, curr_combination) {
    if (curr_index > n) {
      combinations[[length(combinations) + 1]] <- curr_combination  # 将当前组合添加到列表中
    } else {
      df <- lst[[curr_index]]  # 获取当前索引对应的data.frame对象
      for (i in seq_len(nrow(df))) {
        new_combination <- c(curr_combination, i)  # 将当前索引添加到当前组合中
        generate_combinations(curr_index + 1, new_combination)  # 递归调用生成下一个索引的组合
      }
    }
  }
  
  generate_combinations(1, c())  # 调用递归函数生成索引的组合
  
  return(combinations)  # 返回所有可能的组合
}

# 示例数据
df1 <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6))
df2 <- data.frame(C = c(7, 8, 9), D = c(10, 11, 12))
df3 <- data.frame(E = c(13, 14, 15), F = c(16, 17, 18))

# 创建一个包含data.frame对象的列表
lst <- list(df1, df2, df3)

# 获取索引的可能组合
combinations <- get_combinations(lst)

# 打印所有可能的组合
for (i in seq_along(combinations)) {
  cat("Combination", i, ": ", combinations[[i]], "\n")
}