R语言 字符处理函数

字符处理函数

函 数  描 述

nchar(x)

计算 x 中的字符数量

x <- c("ab", "cde", "fghij")

length(x) 返回值为 3 （参见表 5-7）

nchar(x[3]) 返回值为 5

substr(x, start, stop)

提取或替换一个字符向量中的子串

x <- "abcdef"

substr(x, 2, 4) 返回值为 "bcd"

substr(x, 2, 4) <- "22222" （ x 将变成 "a222ef" ）

grep(pattern, x, ignore.

case=FALSE, fixed=FALSE)

在 x 中搜索某种模式。若 fixed=FALSE ，则 pattern 为一个正则表达式。若

fixed=TRUE ，则 pattern 为一个文本字符串。返回值为匹配的下标

grep("A",c("b","A","c"),fixed=TRUE) 返回值为 2

sub(pattern, replacement,

x, ignore.case=FALSE,

fixed=FALSE)

在 x 中搜索 pattern ，并以文本 replacement 将其替换。若 fixed=FALSE ，则

pattern 为一个正则表达式。若 fixed=TRUE ，则 pattern 为一个文本字符串。

sub("\\s",".","Hello There") 返回值为 Hello.There 。注意， "\s" 是一个

用来查找空白的正则表达式；使用 "\\s" 而不用 "\" 的原因是，后者是 R中的转义

字符

strsplit(x, split,

fixed=FALSE)

在 split 处分割字符向量 x 中的元素。若 fixed=FALSE ，则 pattern 为一个正

则表达式。若 fixed=TRUE ，则 pattern 为一个文本字符串

y <- strsplit("abc", "") 将返回一个含有 1个成分、3个元素的列表，包含

的内容为 "a" "b" "c"

unlist(y)[2] 和 sapply(y, "[", 2) 均会返回 "b"

paste(…, sep="")

连接字符串，分隔符为 sep

paste("x", 1:3,sep="") 返回值为 c("x1", "x2", "x3")

paste("x",1:3,sep="M") 返回值为 c("xM1","xM2" "xM3")

paste("Today is", date()) 返回值为 Today is Thu Jun 25 14:17:32 2011

（我修改了日期以让它看起来更接近当前的时间）

toupper(x)

大写转换

toupper("abc") 返回值为 "ABC"

tolower(x)

小写转换

tolower("ABC") 返回值为 "abc"

摘自：R语言实战