Nombre de mots multiples comptés dans la chaîne

Question

J'ai un fichier texte et je veux le nombre de fréquence de deux ensembles de mots. par exemple:

setone <- ("mumbai", "delhi", "chennai") 

settwo <- ("nike", "zara","puma") 

textfile <- ("brands in cites like nike zara and puma in mumbai, delhi and chennai. while many exotic brands in mumbai... disel, durby, Calvin Kline") 

Sortie requise manière suivante:

File Name setone  settwo Total 
Textfile  4   3  7 

S'il vous plaît aider.

Answer 1

est une méthode ici:

library(tidyverse) 
library(stringr) 

setone <- c("mumbai", "delhi", "chennai") 

settwo <- c("nike", "zara","puma") 

textfile <- (
    "brands in cites like nike zara and puma in mumbai, delhi and chennai. 
    while many exotic brands in mumbai... disel, durby, Calvin Kline") 

out <- tibble(
    textfile = textfile, 
    setone = str_count(textfile, str_c(setone, collapse = '|')), 
    settwo = str_count(textfile, str_c(settwo, collapse = '|')) 
) 
out <- mutate(out, total = setone + settwo)