创建一个函数，该函数将通过对R中的数据帧进行子化来生成数据帧列表

generate_subsets <- function(data_frame) {
  # 获取数据帧的列数
  num_cols <- ncol(data_frame)
  
  # 生成所有可能的子集索引
  subset_indices <- 1:(2^num_cols - 1)
  
  # 初始化空的数据帧列表
  subset_list <- list()
  
  # 遍历所有子集索引
  for (i in subset_indices) {
    # 将子集索引转换为二进制表示
    binary_index <- intToBits(i)
    
    # 将二进制表示转换为布尔向量
    bool_vector <- as.logical(rev(as.integer(binary_index)))
    
    # 根据布尔向量选择对应的列
    subset <- data_frame[, bool_vector]
    
    # 将子集添加到列表中
    subset_list[[i]] <- subset
  }
  
  # 返回数据帧列表
  return(subset_list)
}

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

# 调用函数生成数据帧列表
subset_list <- generate_subsets(df)

# 打印数据帧列表中的每个数据帧
for (subset in subset_list) {
  print(subset)
}