library(stringr)
library(pipeR)

keywords <- c('關羽', '關公', '關）?聖帝君')

str <- "關羽（約160年?－220年）[1]，字雲長，本字長生，司隸河東解人（今山西省運城市），
約生於東漢桓帝延熹年間[2]，東漢末年三國時期劉備的重要將領。與張飛並稱「萬人敵」
（見《三國志‧魏書‧程昱傳》：「關羽、張飛皆萬人敵也。」）。關羽最為特殊之處是
其倍受中華文化歷代推崇，由於其忠義勇武的形象，多被民眾尊稱為關公、關大爺、關老爺
，又多次被後代帝王褒封，直至武聖，故也俗稱為（關）聖帝、（關）帝君、（關）聖帝君
、關帝、關帝爺等而流傳至今。道教尊為協天大帝、伏魔大帝、翊漢天尊等，中國佛教界奉
其為護法神之一，稱為「伽藍菩薩」。其中儒宗神教奉為五文昌之一而扶鸞信仰者則奉為恩
主，故又稱關公為恩主公、山西夫子、文衡聖帝。民間由於《三國演義》等傳統作品的影響
，普遍認為關羽與劉備、張飛義結金蘭，關羽排行第二，故又俗稱其為關二爺、關二哥。直
至現當代的某些社會群體與場合中，仍然經常出現祭拜關公的情況。"

keywords %>>% paste0(collapse = "|") %>>% (str_extract_all(str, .)) %>>%
  `[[`(1) %>>% table
# 關）聖帝君       關公       關羽
#          1          3          5