string - 如何搜索多个字符串并将它们替换为字符串列表中的任何内容

Question

我在数据框中有一列，如下所示:

npt2$name
#  [1] "Andreas Groll, M.D."
#  [2] ""
#  [3] "Pan-Chyr Yang, PHD"
#  [4] "Suh-Fang Jeng, Sc.D"
#  [5] "Mostafa K Mohamed Fontanet Arnaud"
#  [6] "Thomas Jozefiak, M.D."
#  [7] "Medical Monitor"
#  [8] "Qi Zhu, MD"
#  [9] "Holly Posner"
# [10] "Peter S Sebel, MB BS, PhD Chantal Kerssens, PhD"
# [11] "Lance A Mynderse, M.D."
# [12] "Lawrence Currie, MD"

我试过 gsub但没有运气。
做完后 toupper(x)我需要替换“MD”或“M.D.”的所有实例或什么都没有的“博士”。

有没有一个很好的简短技巧来做到这一点？

事实上，我很想看到它在单个字符串上完成，以及它在整个列表中的一个命令中完成的有何不同。

Answer 1

其中之一:

gsub("MD|M\\.D\\.|PHD", "", test)  # target specific strings
gsub("\\,.+$", "", test)        # target all characters after comma

上面的 Matt Parker 和下面的 Tommy 都提出了“M.R.C.P.”、“PhD”、“D.Phil.”的问题。和“博士”或其他英国或大陆指定的博士学位级别学位应该被找出并删除。也许@user56 可以告知意图是什么。