R语言文本处理：将带括号数据转换为双列格式的后续步骤

你已经用read.table按}分割读取了文件，接下来我们可以一步步把这些带括号的字符串转换成你想要的双列结构：

步骤1：将多列数据整理为单组向量 #

你的tab是一行多列的结构，每一列对应一个括号组的内容。我们先把它转成一维向量，方便逐个处理每个组：

# 转置后转成向量，得到每个括号组的原始字符串
groups_vec <- as.vector(t(tab))

步骤2：清理字符串中的多余括号 #

现在每个元素开头有{{或者{，我们用正则表达式去掉这些前缀：

# 去掉所有开头的左括号
cleaned_groups <- gsub("^\\{+", "", groups_vec)

处理后，每个元素就变成了类似"2,3,4"、"1,3"这样的纯数字逗号分隔字符串。

步骤3：拆分数字并与组编号配对 #

接下来我们遍历每个清理后的组，给每个组分配编号（从1开始），然后把组内的每个数字和编号配对，最后合并成一个数据框：

# 遍历每个组，生成组编号+对应数字的子数据框
result_list <- lapply(seq_along(cleaned_groups), function(group_num) {
  # 拆分逗号分隔的数字，转成整数
  values <- as.integer(strsplit(cleaned_groups[group_num], ",")[[1]])
  # 返回当前组的编号和对应值
  data.frame(group = group_num, value = values)
})

# 合并所有子数据框
final_df <- do.call(rbind, result_list)

步骤4：输出成目标格式 #

如果你需要把结果输出成空格分隔的文本（像你示例里的1 2、1 3...），可以用write.table：

write.table(final_df, "result.txt", sep = " ", row.names = FALSE, col.names = FALSE)

运行完这些代码后，你就能得到预期的双列结果啦。如果你的原始数据里有空的括号组（比如{}），可以在步骤3里加个判断，跳过空值避免报错。

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