wept | 微信小程序多端实时运行工具 | Chat library

I have a large dataframe consisting of tweets, and a keyword dictionary loaded as a list that has words and word stems associated with emotion (kw_Emo). I need to find a way to count how many times any given word/word stem from kw_Emo is present each tweet. In kw_Emo, word stems are marked with an asterisk ( * ). For example, one word stem is ador*, meaning that I need to account for the presence of adorable, adore, adoring, or any pattern of letters that starts with ador….

From a previous Stack Overflow discussion (see previous question on my profile), I was greatly helped with the following solution, but it only counts exact character matches (Ex. only ador, not adorable):

1. Load relevant package.

   library(stringr)

2. Identify and remove the * from word stems in kw_Emo.

   for (x in 1:length(kw_Emo)) { if (grepl("[*]", kw_Emo[x]) == TRUE) { kw_Emo[x] <- substr(kw_Emo[x],1,nchar(kw_Emo[x])-1) } }

3. Create new columns, one for each word/word stem from kw_Emo, with default value 0.

   for (x in 1:length(keywords)) { dataframe[, keywords[x]] <- 0}

4. Split each Tweet to a vector of words, see if the keyword is equal to any, add +1 to the appropriate word/word stems' column.

   for (x in 1:nrow(dataframe)) { partials <- data.frame(str_split(dataframe[x,2], " "), stringsAsFactors=FALSE) partials <- partials[partials[] != ""] for(y in 1:length(partials)) { for (z in 1:length(keywords)) { if (keywords[z] == partials[y]) { dataframe[x, keywords[z]] <- dataframe[x, keywords[z]] + 1 } } } }

Is there a way to alter this solution to account for word stems? I'm wondering if it's possible to first use a stringr pattern to replace occurrences of a word stem with the exact characters, and then use this exact match solution. For instance, something like stringr::str_replace_all(x, "ador[a-z]+", "ador"). But I'm unsure how to do this with my large dictionary and numerous word stems. Maybe the loop removing [*], which essentially identifies all word stems, can be adapted somehow?

Here is a reproducible sample of my dataframe, called TestTweets with the text to be analysed in a column called clean_text:

dput(droplevels(head(TestTweets, 20)))

So I'm writing a program that generates a sentence using BNF grammar. So let's say that I had this for a grammar file: