[英]Append list with NULLs to data frame
我正在使用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)
一种方法是使用lengths
来获取列表中各个元素的长度。
dat$person_count <- lengths(person_entity(dat$texts))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.