从数据框中同时删除英文和非英文名称

Question

我正在处理数百行垃圾数据。一个虚拟数据是这样的：

   foo_data <- c("Mary Smith is not here", "Wiremu Karen is not a nice person",
                  "Rawiri Herewini is my name", "Ajibade Smith is my man", NA)

我需要删除所有姓名（英语和非英语名字和姓氏，这样我想要的输出将是：

[1] "is not here"         " is not a nice person" " is my name"  
[4] "is my man"           NA  

但是，使用 textclean 包，我只能删除英文名称，留下非英文名称：

library(textclean)
textclean::replace_names(foo_data)

[1] "  is not here"     "Wiremu  is not a nice person"    "Rawiri Herewini is my name"  
[4] "Ajibade  is my man"           NA

任何帮助将不胜感激。

Answer 1

你可以这样做：

s <- textclean::replace_names(foo_data)
trimws(gsub(sprintf('\\b(%s)\\b', 
      paste0(unlist(hunspell::hunspell(s)), collapse = '|')), '', s))

[1] "is not here"          "is not a nice person" "is my name"           "is my man"            NA