正则表达式的功能非常强大,尤其是在文本数据进行处理中显得更加突出。R中的grep、grepl、sub、gsub、regexpr、gregexpr等函数都使用正则表达式的规则进行匹配。这几个函数原型如下:
grep(pattern, x, ignore.case = FALSE, perl = FALSE, value = FALSE,
fixed = FALSE, useBytes = FALSE, invert = FALSE)
grepl(pattern, x, ignore.case = FALSE, perl = FALSE,
fixed = FALSE, useBytes = FALSE)
sub(pattern, replacement, x, ignore.case = FALSE, perl = FALSE,
fixed = FALSE, useBytes = FALSE)
gsub(pattern, replacement, x, ignore.case = FALSE, perl = FALSE,
fixed = FALSE, useBytes = FALSE)
regexpr(pattern, text, ignore.case = FALSE, perl = FALSE,
fixed = FALSE, useBytes = FALSE)
gregexpr(pattern, text, ignore.case = FALSE, perl = FALSE,
fixed = FALSE, useBytes = FALSE)
regexec(pattern, text, ignore.case = FALSE, perl = FALSE,
fixed = FALSE, useBytes = FALSE)
参数说明
函数作用:
grep函数可以像数据库查询一样对向量中的具有特定条件的元素进行查询
几种种R语言中的正则通配符:
(1)“^”匹配一个字符串的开始,比如sub(“^a”,””,c(“abcd”,”dcba”)),表示将开头为a的字符串。如果要将开头的一个字符串替换,简单地写成“^ab”就行。
(2)“$”匹配一个字符串的结尾,比如sub(“a$”,””,c(“abcd”,”dcba”))表示将以a结尾的字符串。
(3)”.”表示除了换行符以外的任一字符,比如sub(“a.c”,””,c(“abcd”,”sdacd”))。
(4)“*”表示将其前的字符进行0个或多个的匹配,比如sub(“a*b”,””,c(“aabcd”,”dcaaaba”))。
(5)“?”匹配0或1个正好在它之前的那个字符
(6)“+”匹配1或多个正好在它之前的那个字符。
(7)“.*”可以匹配任意字符,比如sub(“a.*e”,””,c(“abcde”,”edcba”))。
(8)“|”表示逻辑的或,比如sub(“ab|ba”,””,c(“abcd”,”dcba”)),可以替换ab或者ba。
(9)“^”还可以表示逻辑的补集,需要写在“[]”中,比如sub(“[^ab]”,””,c(“abcd”,”dcba”)),由于sub只替换搜寻到的第一个,因此这个例子中用gsub效果更好。
(10)“[]”还可以用来匹配多个字符,如果不使用任何分隔符号,则搜寻这个集合,比如在sub(“[ab]”,””,c(“abcd”,”dcba”))中,和”a|b”效果一样。
(11)“[-]”的形式可以匹配一个范围,比如sub(“[a-c]”,””,c(“abcde”,”edcba”))匹配从a到c的字符,sub(“[1-9]”,””,c(“ab001″,”001ab”))匹配从1到9的数字。
(12){n}n 是一个非负整数。匹配确定的 n 次。例如,'o{2}' 不能匹配 "Bob" 中的 'o',但是能匹配 "food" 中的两个 o。
(13){n,}n 是一个非负整数。至少匹配n 次。例如,'o{2,}' 不能匹配 "Bob" 中的 'o',但能匹配 "foooood" 中的所有 o。'o{1,}' 等价于 'o+'。'o{0,}' 则等价于 'o*'。
(14){n,m}m 和 n 均为非负整数,其中n <= m。最少匹配 n 次且最多匹配 m 次。例如,"o{1,3}" 将匹配 "fooooood" 中的前三个 o。'o{0,1}' 等价于 'o?'。请注意在逗号和两个数之间不能有空格。
举例说明:
> Num <- c(310,456,311,431,421,435,534,312,313,320,321,322,323,314,324,317,3231)
> ipn<-grep(“310”,Num,value=T,fixed=True)##匹配的数字310##
> ipn<-grep(“^32”,Num,value=T)##开头为32的数字#
> ipn<-grep("[^310]",Num,value = T)#不含有310的数值
> ipn<-grep(“4$”,Num,value=T)##以4结尾的的数字#
> ipn<-grep(“3.*2”,Num,value=T)## "." 匹配任意字符,"*" 匹配前一个字符1次以上,该代码即为匹配含有所有以含有(3 一个以上任意字符 2)模式的数字##
> ipn<-grep(“*31”,Num,value=T)##所有含‘31’的数字#
> ipn<-grep(“3|1”,Num,value=T)##带有3或者1的数字
> ipn<-grep(“31+”,Num,value=T) # "+"匹配前面的子表达式一次或多次,匹配“311”,“3111”,“31111”
> ipn<-grep(“[123]”,Num,value=T) ##所有含‘1’ 或“2”或 “3”的数字##
备注:
1 特殊符号需要转义,R语言里面grep、grepl、sub、gsub、regexpr、gregexpr这几个函数并不支持使用 “\” 进行转义,可使用 \\。