R intersecting strings [duplicate]

问题

This question already has an answer here:

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

Closed 5 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?

回答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"

来源：https://stackoverflow.com/questions/22624284/r-intersecting-strings