有一些病人用药情况的表格， 想统计有多少病人使用了某种药物药物名称有很多，例如
acetaminophen, ACYCLOVIR,[backcolor=rgba(255, 255, 255, 0.5)]ADVAIR....等等，大概几百种不同药物吧，然后用以下code提取使用该种药物的人数

SDH_acetaminophen <- SDH_meds [grep (pattern='acetaminophen',SDH_meds[,30]),]
SDH_acetaminophen_id_1 <- SDH_acetaminophen["genc_id"]
SDH_acetaminophen_id <- unique(SDH_acetaminophen_id_1)


想建立一个包含药物名称的向量，然后由R自动从该向量组中读取每一个药物名称，自动循环替换成上述语句的红色部分，以完成统计，不知道该怎么实现？多谢指点！