r создать столбец для слова функции grep

Question

Я хочу извлечь слово из предложения и создать новый столбец для слова.

Это то, что я сделал до сих пор.

Keyword <- "statistics|regression|logistic"

data_keyword <- data[grep(keyword, data$description, ignore.case = T),]

Таким образом, данные выглядят как

id  description 
1   ~~~~~~statistics ~~~
2   ~~~~~~regression ~~~

И я хочу создать новый столбец, который показывает, какое слово приводит к grep id 1 и 2.

Итак, что я хочу, выглядит следующим образом:

id  description  words
1   ~~~~~~statistics ~~~ statistics
2   ~~~~~~regression ~~~ regression

Я думаю, что могу использовать mutate, но не знаю, как его кодировать. Любая идея будет полезна.

Answer 1

Возможно, вы захотите использовать sub:

keys <- sprintf(".*(%s).*", keyword)

data$words <- sub(keys, "\\1", data$description)
data

#   id          description      words
# 1  1 ~~~~~~statistics ~~~ statistics
# 2  2 ~~~~~~regression ~~~ regression