eine Spalte, die bestimmte Wörter extrahiert

Question

Ich habe eine Spalte namens „Productdes“, die wie Tausende von Zeilen mit Produktbeschreibung hält:

Productdes

Varitas mágicas de Harry Potter 
Figuras de Star Wars 
Coleccionismo de Harry Potter 
Espadas de Juego de Tronos 
Bola de Dragon Z 
Estatuas de The Witcher (El Brujo) 
Figuras de Chucky El Muñeco Diabólico 
Cascos de Star Wars 
Espadas de The Legend of Zelda 
Estatuas de Los Vengadores (The Avengers) 

Ich möchte eine neue Spalte namens " Theme“, die für jede entsprechende Zeile bestimmte Wörter aus dieser Zeile extrahiert, wie folgt aus:

Theme 
Harry Potter 
Star Wars 
Harry Potter 
Juego de Tronos 
Dragon Z 
El Brujo 
Chucky El Muñeco Diabólico 
Star Wars 
Zelda 
Los Vengadores 

ich die folgende Funktion verwendet haben, aber ohne Erfolg:

mutate(Theme = str_extract(Productdes, 
          c("Harry Potter",Star Wars","Juego de Tronos","Dragon Z", 
          "El Brujo","Chucky El Muñeco Diabólico","Zelda", 
          "Los Vengadores")) 

Ich würde jede mögliche Hilfe bitte schätzen. Dank

Answer 1

Wir können die vector von Strings paste einen einzigen Single mit Begrenzer erstellen | in als Muster Argument verwendet werden str_extract

v1 <- c("Harry Potter","Star Wars","Juego de Tronos","Dragon Z", 
         "El Brujo","Chucky El Muñeco Diabólico","Zelda", 
         "Los Vengadores") 

df1$Theme <- str_extract(df1$Productdes, paste(v1, collapse="|")) 
df1$Theme 
#[1] "Harry Potter"    "Star Wars"     "Harry Potter"    "Juego de Tronos"   
#[5] "Dragon Z"     "El Brujo"     "Chucky El Muñeco Diabólico" "Star Wars"     
#[9] "Zelda"      "Los Vengadores"