字符串替换涉及到的，最主要的3个内容：string、pattern 和 replacement，分别对应从哪里去匹配、匹配什么、以及要替换成什么。

举个例子，将下示字符串中的 "Intrahepatic" 替换为 "Extrahepatic"：

test = "YES329Intrahepatic RecurrenceNoNONOYESNo123"

sub("Intrahepatic", "Extrahepatic", test)

[1] "YES329Extrahepatic RecurrenceNoNONOYESNo123"

其实就是最简单的，识别一个内容并替换为一个内容！

如果存在多个匹配，如将 test 中所有的 "No" 全部替换为 "no"，则需要使用 gsub 函数：

gsub("No", "no", test)

注意，字符串中的 "NO" 并没有被替换，意味着区分大小写！

所以，如果想将所有可能的大小写情况都被纳入替换，需要列举出所有可能并以"|"间隔：

gsub("No|NO|no|nO", "no", test)

或者用"[]"列举出每个字母出现的可能：

gsub("[Nn][Oo]", "no", test)    

即，将多个不同的内容替换成一个相同的内容！

其实，本例比较特殊，大小写的问题在 gsub 中设置参数 ignore.case = T 即可：

gsub("No", "no", test, ignore.case = T)

上示部分写法涉及到使用正则表达式。再比如，将字符串中的空格和结尾处的数字替换为"-"：

gsub("\\s|\\d+$", "-", test)

[1] "YES329Intrahepatic-RecurrenceNoNONOYESNo-"

更进一步的，我们能否在一句命令中实现多种替换？即，将上示三个替换过程在一句命令中完成！

方法1：简单组合

gsub("Intrahepatic", "Extrahepatic", gsub("[Nn][Oo]", "no", gsub("\\s|\\d+$", "-", test)))

[1] "YES329Extrahepatic-RecurrencenononoYESno-"

以前我会用这种写法，不依赖其他包，简单有效，来几个组几个。但是！随之可读性也会变差，而且总觉得有点冗余，不够智能，只给出对应关系不行吗？

方法2：stringr 包中的 str_replace_all 函数：

p_load(stringr)    # 安装加载stringr

str_replace_all(test, c("Intrahepatic" = "Extrahepatic", "[Nn][Oo]" = "no", "\\s|\\d+$" = "-"))

直接给出替换的对应关系，用"="连接一目了然，代码无冗余，而且把 string 放在第一个参数很舒服啊！

方法3：mgsub包中的 mgsub 函数：

p_load(mgsub)

mgsub(test, c("Intrahepatic", "[Nn][Oo]", "\\s|\\d+$"), c("Extrahepatic", "no", "-"), recycle = T)

这里将 pattern 和 replacement 分开写的设计很人性化， str_replace_all 中就不支持这种写法。

需要注意的是，如果正则配的内容与替换的长度不一致时(如上，"\s" 和 "\\d+$" 同时对应 "-")，需要添加参数 recycle = T，否则报错：

pattern and replacement vectors must be the same length

哦，对了，这个时候你输入test会发现还是替换前的内容，是因为上示的替换均是生成一个新的字符串，所以没赋值就不会覆盖掉之前的test！

哦，还有...新来的小伙伴

如果你在执行 p_load 的时候报错

点这里