如何修复循环以将列表打印到单个单元格中

Question

我正在尝试使用一个循环，该循环可以打印一个列表并将每个行的列表保存在一个新列中。

我可以运行循环，但最后只得到新列每一行中重复的最后一个单词的结果列表。

library(vwr)
test = c("cat", "bat", "rat", "tow", "row")
test = data.frame(test)
for (i in test$test){
    test$save[i] = levenshtein.neighbors(i,test$test)[1]}

循环运行后，我将以test$save作为每个单元格中“行”（“拖曳”）的邻居列表。

我希望test$save列中的每个单元格都具有该单词的邻居（即“ cat”应具有“ bat”和“ rat”；“ tow”应具有“ row”）。最终，在具有50个其他列的数据集中将有100,000个以上的单词，因此我也不能做太多的手工工作。

感谢您提供的任何帮助！

Answer 1

我不确定您要实现什么，但是这段代码似乎可以正常工作：

library(vwr)

test <- list(cat = c("cat", "bat", "rat", "tow", "row"))

for (i in test$cat){
  test$save[i] = levenshtein.neighbors(i,test$cat)[1]
}
test$save

在此示例中，test$cat是向量，而不是数据帧。其余代码保持不变。