R技术求助：如何将表格导出为ID-单词逐行的制表符分隔CSV

我明白你的需求——要把每个ID对应的有效单词单独拆成一行，输出严格符合你给的示例格式。其实你已经完成了数据读取和前期处理，只差把宽格式数据重塑为长格式这一步，下面给你两种简单可行的方案：

方案1：用tidyverse包（直观易读） #

如果你习惯用tidyverse生态，这是最便捷的方式，不需要你之前生成的df_Result，直接从原始测试数据df_TEST就能处理：

# 加载tidyverse（如果没安装先运行 install.packages("tidyverse")）
library(tidyverse)

# 处理数据：拆分字符串并展开为单行
df_output <- df_TEST %>%
  # 把strings列按空格拆分成列表列
  mutate(words = str_split(strings, "\\W")) %>%
  # 把列表列展开为多行，每个单词对应一行
  unnest(words) %>%
  # 只保留需要的ID和words列
  select(ID, words)

# 导出为制表符分隔的文件
write.table(df_output, "output.tsv", sep = "\t", row.names = FALSE, col.names = FALSE)

方案2：用基础R（无需额外安装包） #

如果你不想安装新包，用基础R也能实现，同样可以直接处理原始测试数据：

# 拆分每个ID对应的字符串，生成ID-单词的配对列表
word_pairs <- lapply(1:nrow(df_TEST), function(i) {
  words <- strsplit(df_TEST$strings[i], "\\W")[[1]]
  data.frame(ID = rep(df_TEST$ID[i], length(words)), word = words)
})

# 合并列表为数据框
df_output <- do.call(rbind, word_pairs)

# 导出为制表符分隔的文件
write.table(df_output, "output.tsv", sep = "\t", row.names = FALSE, col.names = FALSE)

如果你想基于已有的df_Result处理 #

如果你坚持要用你已经生成的df_Result（宽格式，每个单词是列），可以这样转长格式：

# 加载tidyverse（或用基础R的reshape）
library(tidyverse)

df_output <- df_Result %>%
  # 把所有单词列转成长格式
  pivot_longer(cols = all_words, names_to = "word", values_to = "exists") %>%
  # 只保留存在的单词（值为1的行）
  filter(exists == 1) %>%
  # 保留需要的列
  select(ID, word)

# 导出（参数同上）
write.table(df_output, "output.tsv", sep = "\t", row.names = FALSE, col.names = FALSE)

关键说明 #

• 导出时用write.table，指定sep = "\t"实现制表符分隔，row.names = FALSE和col.names = FALSE确保输出没有行号和表头，完全符合你要的格式。
• 运行完代码后，你会得到一个output.tsv文件，打开后就是你示例中的结构：

ID0001	Peanut
ID0001	Butter
ID0001	Jelly
ID0002	Peanut
ID0003	Butter
ID0004	Storm
ID0005	Storm
ID0005	Wind
ID0005	Butter

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