字符串操作
grep()函數(shù)
#第一個參數(shù)是pattern,在第二個參數(shù)代表的字符串向量中進行匹配
#返回匹配到的索引值
grep("pole",c("x","pole","poler"))
#但是如果沒有匹配到的話返回是integer(0)
#這個值并不能用于if條件判斷中析珊，如果要用在if中徽级，這樣使用：
if(length(grep("pole",c("x","pole")))!=0){
print("yes")
}```
#nchar()函數(shù)
返回字符串x的長度
x <- "south Africa"
nchar(x)
而length()計算的是這個x向量包含多少個元素
length(x)```
paste()函數(shù)
#默認的連接符是空格扎狱，使用sep參數(shù)進行指定
paste("north","pole")
paste("north","pole",sep=".")```
#sprintf()函數(shù)
打印到字符串里面
i <- 8
s <- sprintf("the square of %d is %d",i,i^2)
s```
substr()函數(shù)
substr("i love you",3,6)```
#strsplit()函數(shù)
返回拆分后的子字符串組成的R列表
如果輸入的是多個元素的向量砚嘴，那么返回的就是有多個組件的列表
strsplit("2016-03-24",split="-")```
regexpr()
#第一個參數(shù)是pattern，第二個參數(shù)是字符串，返回匹配的第一個子字符串的起始位置
regexpr("ubt","xsubtls")```
#gregexpr()
與regexpr()函數(shù)不同的是，這個函數(shù)將尋找所有匹配的子字符串的起始位置
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]])
計算這個列表唯一組件的長度盆色，包含元素個數(shù)
判斷最后一個被分割開的元素是不是需要的后綴名
return(parts[[1]][nparts]==suff)
}
另外一個檢測文件名后綴的方法
testsuffix1 <- function(fn,suff){
ncf <- nchar(fn)
小數(shù)點后的后綴名開始位置
dotpos <- ncf - nchar(suff)+1
return(substr(fn,dotpos,ncf)==suff)
}```
生成文件名
for(i in 1:5){
#先生成文件名
fname <- paste("q",i,".pdf",sep="")
pdf(fname)
#生成服從正態(tài)分布的隨機變量直方圖
hist(rnorm(100,sd=i))
#默認mean=0
dev.off()
}
#使用sprintf()函數(shù)
for(i in 1:5){
fname <- sprintf("q%d.pdf",i)
pdf(fname)
hist(rnorm(100,sd=i))
dev.off()
}```