我想在列之间匹配相似的单词

这是我的数据集，我想重新组织行，以便如果每列中出现一个单词，它就会转移到相应的行。例如

等等，这样每个单词都有自己的行，如果该行中的单词出现在该列中，它就会与其他列匹配

我一直在寻找如何做到这一点，但找不到好的代码。我得到的一个想法是创建所有出现的单词的列表，然后尝试将它们与每一列匹配，但仍然没有找到这方面的代码。

我们可以使用match in base R- 得到unique元素来自于unlist编辑数据作为vector，循环列，获取匹配元素的索引，以及replace具有匹配元素的索引并在处理长度后转换为 data.frame

v1 <- unique(unlist(df1))
lst1 <- lapply(df1, \(x) 
   {i1 <- match(x, v1)
   replace(rep(NA, max(i1)), i1, v1[i1])
 })
list2DF(lapply(lst1, `length<-`, max(lengths(lst1))))
 1.0       2.0      3.0
1 loud      <NA>     <NA>
2 pain      pain     <NA>
3 dull      <NA>     <NA>
4 <NA> complaint     <NA>
5 <NA>    stress   stress
6 <NA>      <NA> problems
7 <NA>      <NA> confused

data

df1 <- structure(list(`1.0` = c("loud", "pain", "dull"), `2.0` = c("complaint", 
"stress", "pain"), `3.0` = c("problems", "confused", "stress"
)), class = "data.frame", row.names = c(NA, -3L))