字符串操作

grep()函数

#第一个参数是pattern,在第二个参数代表的字符串向量中进行匹配
#返回匹配到的索引值
grep("pole",c("x","pole","poler"))
#但是如果没有匹配到的话返回是integer(0)
#这个值并不能用于if条件判断中，如果要用在if中，这样使用：
if(length(grep("pole",c("x","pole")))!=0){
  print("yes")
}```

#nchar()函数

返回字符串x的长度

x <- "south Africa"
nchar(x)

而length()计算的是这个x向量包含多少个元素

length(x)```

paste()函数

#默认的连接符是空格，使用sep参数进行指定
paste("north","pole")
paste("north","pole",sep=".")```

#sprintf()函数

打印到字符串里面

i <- 8
s <- sprintf("the square of %d is %d",i,i^2)
s```

substr()函数

substr("i love you",3,6)```

#strsplit()函数

返回拆分后的子字符串组成的R列表

如果输入的是多个元素的向量，那么返回的就是有多个组件的列表

strsplit("2016-03-24",split="-")```

regexpr()

#第一个参数是pattern，第二个参数是字符串，返回匹配的第一个子字符串的起始位置
regexpr("ubt","xsubtls")```

#gregexpr()

与regexpr()函数不同的是，这个函数将寻找所有匹配的子字符串的起始位置

gregexpr("u","xusfusjfu")```

正则表达式的一些例子

grep("[au]",c("equator","north pole","south pole"))
grep("o.e",c("equator","north pole","south pole"))
grep("o..e",c("equator","north polee","sout.h pole"))
grep("\\.",c("equator","north polee","sout.h pole"))```

#检测文件名的后缀

testsuffix <- function(fn,suff){

if T match strsplit exactly,otherwise use regular expressions

parts <- strsplit(fn,".",fixed = T)

返回的parts是一个组件的列表,因为fn只有一个元素，如果有多个元素，

则返回的parts将有多个组件

nparts <- length(parts[[1]])

计算这个列表唯一组件的长度，包含元素个数

判断最后一个被分割开的元素是不是需要的后缀名

return(parts[[1]][nparts]==suff)
}

另外一个检测文件名后缀的方法

testsuffix1 <- function(fn,suff){
ncf <- nchar(fn)

小数点后的后缀名开始位置

dotpos <- ncf - nchar(suff)+1
return(substr(fn,dotpos,ncf)==suff)
}```

生成文件名

for(i in 1:5){
  #先生成文件名
  fname <- paste("q",i,".pdf",sep="")
  pdf(fname)
  #生成服从正态分布的随机变量直方图
  hist(rnorm(100,sd=i))
  #默认mean=0
  dev.off()
  
}

#使用sprintf()函数
for(i in 1:5){
  fname <- sprintf("q%d.pdf",i)
  pdf(fname)
  hist(rnorm(100,sd=i))
  dev.off()
}```