Как исправить цикл печати списков в отдельные ячейки

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 в качестве списка соседей для "row" ("tow") в каждой ячейке.

Я хочу, чтобы каждая ячейка в столбце test$save имела соседей для этого слова (т. Е. У "кошки" должны быть слова "летучая мышь" и "крыса"; у слова "буксировка" должна быть строка "строка"). В конечном итоге это будет более 100 000 слов в наборе данных с 50 другими столбцами, поэтому я не могу выполнять слишком много ручной работы.

Спасибо за любую помощь, которую вы можете предложить!

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 - это вектор, а не датафрейм.Остальной код остается без изменений.