I am looking to find keywords that appear within a search string (in this case, a research question). I think I'm close, but I'm not quite certain what the problem is I'm running in to. My data frame looks something like this:

```
Q1                                                     keywords
How do you assess strategic deterrence messaging?      Deterrence messaging effects perception assessment
An energy transition for green growth                  Energy transition sustainable
Some other research question here                      research keywords topics etc

```

where `Q1` refers to the question and the `keywords` are a list of words (in this case, cleaned-up Boolean searches with AND, NOT, and OR removed). What I'm trying to determine is whether any of the `keywords` appear in the `Q1` string, find the matches, and count how often that happens (so I can then say that `keywords` appeared in `column1` *n*% of the time, in `column2` *n*% of the time...). 

Here's where I started, using `tidyverse`:

```
df_final <- df %>% 
  mutate(matches = str_extract_all(
    Q1,
    str_c(df$keywords, collapse = "|") %>% regex(ignore_case = T)),
    match = map_chr(matches, str_c, collapse = ", "),
    count = map_int(matches, length)
  )

```

But I'm not getting any matches. I'm assuming it might have something to do with my `keyword` column? Does this need to be converted into, say, a vector or comma-separated list for this to work right? Thanks ahead of time for suggestions!

EDIT: A sample output from `dput()`: 

```
structure(list(Q1 = c("Assessing the effects of strategic deterrence messaging in the cognitive dimension", 
"How do you assess effects of strategic deterrence messaging?", 
"Determine Strategic Implications of Climate Change to USG/DoD"
), keywords = c("Deterrence messaging effects perception assessment", 
"political philosophy sociology social sciences history marketing power structure government governing class bourgeoisie social class military class ruling class governing class", 
"Climate Change Strategic Global Warming Strategic Climate Change Policy Global Warming Policy"
)), .Names = c("Q1", "keywords"), row.names = c(NA, -3L), class = c("tbl_df", 
"tbl", "data.frame"))

```