Użyj grepl, aby przeszukać jeden z wielu podłańcuchów w tekście.

Question

Używam grepl() w R, aby wyszukać, czy w moim tekście znajduje się któryś z następujących Gatunków. Robię to teraz:

grepl("Action", my_text) | 
grepl("Adventure", my_text) | 
grepl("Animation", my_text) |  
grepl("Biography", my_text) | 
grepl("Comedy", my_text) |  
grepl("Crime", my_text) | 
grepl("Documentary", my_text) | 
grepl("Drama", my_text) | 
grepl("Family", my_text) | 
grepl("Fantasy", my_text) | 
grepl("Film-Noir", my_text) | 
grepl("History", my_text) | 
grepl("Horror", my_text) | 
grepl("Music", my_text) | 
grepl("Musical", my_text) | 
grepl("Mystery", my_text) | 
grepl("Romance", my_text) | 
grepl("Sci-Fi", my_text) | 
grepl("Sport", my_text) | 
grepl("Thriller", my_text) | 
grepl("War", my_text) |  
grepl("Western", my_text) 

Czy istnieje lepszy sposób na napisanie tego kodu? Czy mogę umieścić wszystkie gatunki w tablicy, a następnie użyć w tym celu grepl()?

Answer 1

Możesz wkleić gatunki razem z separatorem "lub" | i uruchomić to przez grepl jako pojedyncze wyrażenie regularne.

x <- c("Action", "Adventure", "Animation", ...) 
grepl(paste(x, collapse = "|"), my_text) 

Oto przykład.

x <- c("Action", "Adventure", "Animation") 
my_text <- c("This one has Animation.", "This has none.", "Here is Adventure.") 
grepl(paste(x, collapse = "|"), my_text) 
# [1] TRUE FALSE TRUE 

Answer 2

Można przechodzić listy lub wektorem gatunków, jak poniżej:

genres <- c("Action",...,"Western") 
sapply(genres, function(x) grepl(x, my_text)) 

Aby odpowiedzieć na to pytanie, jeśli po prostu chcesz wiedzieć, czy any elementem wytypowany wynik będzie można korzystać z funkcji any() .

any(sapply(genres, function(x) grepl(x, my_text))) 

Po prostu, jeśli każdy element ma wartość TRUE, any zwróci TRUE.