字符串长度:
nchar("hello world")
#字符串连接:
paste() #paste(..., sep = " ", collapse = NULL)
#字符串分割:
strsplit() #strsplit(x, split, extended = TRUE, fixed = FALSE, perl = FALSE)
aa<-unlist(strsplit(x, 'char'))
aa[1] # first string
#计算字符串的字符数:
nchar()
#字符串截取:
substr(x, start, stop)
substring(text, first, last = 1000000)
substr(x, start, stop) <- value
substring(text, first, last = 1000000) <- value
substr("abcdef", 2, 4)
[1] "bcd"
> x <- "1234567890"
> substr(x, 3, 3)
[1] "3"
>
> substr(x, 5, 7)
[1] "567"
>
> substr(x, 4, 4) <- "A"
> x
[1] "123A567890"
>
> substr(x, 2, 4) <- "TTF"
> x
[1] "1TTF567890"
>
> substr(x, 9, 12) <- "ABCD"
> x
[1] "1TTF5678AB"
>
> substring(x, 5)
[1] "5678AB"
>
> substring(x, 5) <- "..."
> x
[1] "1TTF...8AB"
#字符串替换及大小写转换:
chartr(old, new, x)
tolower(x)
toupper(x)
casefold(x, upper = FALSE)
x=gsub(old_strin, new_string, x) # replace string 字符串替换
## 包含子字符串: chars中是否包含value
grepl(value, chars)
# chars contains value? (TRUE, FALSE)
#字符串比较:
if(as.character(x)==as.character(y))
判断字符串是否包含某个子串
> chars <- "test"
> value <- "es"
> grepl(value, chars)