Добавить список с NULL во фрейм данных

Question

Я использую библиотеку NER ( сущность ) для извлечения имен людей из предложений во фрейме данных.

Если я бегу:

library(entity)
dat <- data.frame(texts=c('Henry went home', 'Drive a car', 'Two snowmen'), stringsAsFactors=FALSE)
person_entity(dat$texts)

Я получаю список извлеченных имен:

> person_entity(dat$texts)
[[1]]
[1] "Henry"

[[2]]
NULL

[[3]]
NULL

Как я могу добавить этот список в качестве дополнительного столбца в мой фрейм данных? Дополнительный столбец может быть списком извлеченных имен или даже просто длиной списка, например ::

dat <- data.frame(texts=c('Henry went home', 'Drive a car', 'Two snowmen'), person_count=c(1,0,0), stringsAsFactors=FALSE)

Answer 1

Одним из способов будет использование lengths для получения длины отдельных элементов в списке.

dat$person_count <- lengths(person_entity(dat$texts))