Как извлечь второе значение из списка списков и дать NA спискам без второго значения? - PullRequest
Новая
       15

Как извлечь второе значение из списка списков и дать NA спискам без второго значения?

1 голос
/ 10 мая 2019

Я хотел бы извлечь первое и второе значения из списка списков. Я смог извлечь первое значение без проблем. Однако при попытке извлечь второе значение выдает ошибку, поскольку не все списки из столбца suggestion имеют более одного значения. Как извлечь второе значение из столбца suggestion в mydf_1 и сгенерировать NA для тех, у кого нет второго значения?

Ниже приведены коды, которые я написал, чтобы получить первое предложение, но когда я делаю

mydf_1$second_suggestion <- lapply(mydf_1$suggestion, `[[`, 2)

выдает эту ошибку: Error in FUN(X[[i]], ...) : subscript out of bounds

Спасибо. 

# create a data frame contains words
mydf <- data.frame("words"=c("banna", "pocorn and drnk", "trael", "rabbitt", 
                               "emptey", "ebay", "templete", "interne", "bing", 
                               "methog", "tullius"), stringsAsFactors=FALSE)

# add a custom word to the dictionary$
library(hunspell)
mydict_hunspell <- dictionary(lang="en_US", affix=NULL, add_words="bing", 
                              cache=TRUE)

# use hunspell to identify misspelled words and create a row number column 
#   for later uses
mydf$words_checking <- hunspell(mydf$word, dict=mydict_hunspell)
mydf$row_num <- rownames(mydf)

# unlist the words_checking column and get suggestions for those misspelled 
#   words in another data frame
library(tidyr)
mydf_1 <- unnest(mydf, words_checking)
mydf_1$suggestion <- hunspell_suggest(mydf_1$words_checking)

# extract first suggestion from suggestion column
mydf_1$first_suggestion <- lapply(mydf_1$suggestion, `[[`, 1)

1 Ответ

0 голосов
/ 10 мая 2019

Вы можете проверить длину каждого списка, прежде чем пытаться извлечь интересующий элемент.Кроме того, я рекомендую использовать sapply, чтобы вы возвращали символьный вектор, в отличие от другого списка.

Для первого предложения: 

index <- 1
sapply(mydf_1$suggestion, function(x) {if(length(x) < index) {NA} else {x[[index]]}})

А для второго предложения и так далее:

index <- 2
sapply(mydf_1$suggestion, function(x) {if(length(x) < index) {NA} else {x[[index]]}})

Это может быть заключено в большую функцию с немного большим количеством кода, если вам нужно автоматизировать ...

Теоретически, вы можете протестировать с помощью is.null (см. Как проверить, существует ли элемент списка? ), но я все еще получаю ту же ошибку при попытке этого подхода.

...