R语言：如何从5行14列dataframe中提取所有唯一列对

步骤1：数据预处理（针对无表头、无行名的原始数据） #

如果你的原始数据没有表头和行名，先给数据添加列名与行名方便后续识别列对：

# 假设你的原始数据框名为raw_df
# 给列命名为C1到C14
colnames(raw_df) <- paste0("C", 1:ncol(raw_df))
# 给行命名为A、B、C...（可根据需求调整）
rownames(raw_df) <- LETTERS[1:nrow(raw_df)]

如果需要测试用的示例数据，可以直接用以下代码构造和你给出的示例一致的数据框：

raw_df <- data.frame(
  C1 = c(1,0,1,1,1),
  C2 = c(1,1,0,1,0),
  C3 = c(1,0,1,1,0),
  C4 = c(0,0,1,1,1),
  C5 = c(1,1,1,1,0),
  C6 = c(0,0,0,1,1),
  C7 = c(1,0,0,1,1),
  C8 = c(0,1,0,0,1),
  C9 = c(0,1,0,0,0),
  C10 = c(1,0,1,0,1),
  C11 = c(0,1,1,1,1),
  C12 = c(1,1,1,1,1),
  C13 = c(0,0,1,0,1),
  C14 = c(0,0,1,0,1),
  row.names = c("A","B","C","D","E")
)

步骤2：生成所有唯一列对并存储为独立dataframe #

我们用combn函数生成不重复的列组合，14列总共会生成91组唯一列对，符合你的需求：

方案A：将所有列对dataframe存入一个列表（推荐，方便统一管理调用） #

# 生成所有两列的组合索引
col_pairs <- combn(ncol(raw_df), 2, simplify = FALSE)
# 生成列对dataframe列表
df_list <- lapply(col_pairs, function(pair) {
  raw_df[, pair]
})
# 给列表元素命名，方便识别对应的列对
names(df_list) <- sapply(col_pairs, function(pair) {
  paste0("df_", colnames(raw_df)[pair[1]], "_", colnames(raw_df)[pair[2]])
})

# 调用示例：提取C1和C2的列对df
df_list[["df_C1_C2"]]

方案B：直接生成独立的全局环境变量（符合你要求的每个列对单独存为独立dataframe） #

col_pairs <- combn(ncol(raw_df), 2, simplify = FALSE)
invisible(lapply(col_pairs, function(pair) {
  df_name <- paste0("df_", colnames(raw_df)[pair[1]], "_", colnames(raw_df)[pair[2]])
  assign(df_name, raw_df[, pair], envir = .GlobalEnv)
}))

运行上述代码后，你的全局环境中会直接生成df_C1_C2、df_C1_C3...共91个独立的dataframe对象。

可选步骤：批量导出列对为csv文件 #

如果需要将所有列对导出为单独的csv文件，可以用以下代码：

# 先创建存储csv的文件夹（可选）
dir.create("col_pairs_output", showWarnings = FALSE)
lapply(names(df_list), function(df_name) {
  write.csv(df_list[[df_name]], file = paste0("col_pairs_output/", df_name, ".csv"), row.names = TRUE)
})

内容的提问来源于stack exchange，提问作者Carlos