R function that sums up partial words? - r

Question

I'm trying to sum up the words 'Moderna' in R and make a count.
The problem is that the original excel file has the value Moderna mixed with other vaccines. As you can see, my original R file has words with 'Moderna' in them mixed with 'Oxford/Astrazeneca'
This is my attempt trying to sum the words 'Moderna' in the Code is Below.
Code is below:
Number_Of_Countries_Using_Moderna <- Number_of_Vaccines_used %>%
group_by(vaccines) %>%
summarize(Moderna_Countries=sum(n))
I would group_by vaccines, to get Moderna, then attempt to sum the amount of Moderna (making a new column in the process). The problem is that using 'group_by(vaccines) function' wouldn't be correct.
Do you guys have any suggestions? Thank you for your time :)
Problem was solved with either of the two solutions below, thank you.

Answer 1

If I understood correctly, you are trying to get the sum of n whenever Moderna is mentionned in the column vaccines? If that's the case, here is a solution below. You need to "filter", not "group_by":
Number_of_Vaccines_used %>%
filter(grepl("Moderna", vaccines)) %>%
summarize(Moderna_Countries = sum(n))

Answer 2

Not exactly what you ask for: If you are looking for a complete list of vaccines and their counts, you could use
library(dplyr)
library(tidyr)
Number_of_Vaccines_used %>%
mutate(vaccines = strsplit(vaccines, ", ")) %>%
unnest(vaccines) %>%
group_by(vaccines) %>%
summarise(n = sum(n))
This results in something like
# A tibble: 10 x 2
vaccines n
<chr> <int>
1 Covaxin 1
2 EpiVacCorona 1
3 Johnson&Johnson 2
4 Moderna 35
5 Oxford/AstraZeneca 105
6 Pfizer/BioNTech 82
7 Sinopharm/Beijing 24
8 Sinopharm/Wuhan 2
9 Sinovac 18
10 Sputnik V 20
Data
structure(list(vaccines = c("Covaxin, Oxford/AstraZeneca", "EpiVacCorona, Sputnik V", "Johnson&Johnson", "Johnson&Johnson, Moderna, Pfizer/BioNTech", "Moderna", "Moderna, Oxford/AstraZeneca"), n = c(1L, 1L, 1L, 1L, 1L, 1L)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))