我们可以尝试
library(stringr) sapply(str_extract_all(table$model, paste(imp$word, collapse="|")), function(x) paste(head(x[order(-imp$frec[match(x, imp$word)])], 2), collapse= " "))