R intersecting strings [duplicate]

Question

This question already has an answer here:

Extracting common character strings from multiple vectors of different lengths (1 answer)

Closed 9 years ago.

I have the following data as an example:

 basketball = c("MISS W. Johnson 18' Pullup Jump Shot",
                "MISS Barnes 12' Pullup Jump Shot",
                "MISS Carter  19' Pullup Jump Shot")

How do I find the most common words or 'intersect' them so that I will only have "MISS Pullup Jump Shot" as the result?

Answer 1

This works, but I'm not sure how robust it is given your question is a little vague.

Reduce(intersect, strsplit(basketball," "))
#[1] "MISS"   "Pullup" "Jump"   "Shot"