如何将字符串拆分为给定长度的子字符串? [英] How to split a string into substrings of a given length?
本文介绍了如何将字符串拆分为给定长度的子字符串?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我有一个字符串,例如:
I have a string such as:
"aabbccccdd"
我想把这个字符串分解成一个长度为 2 的子字符串向量:
I want to break this string into a vector of substrings of length 2 :
"aa" "bb" "cc" "cc" "dd"
推荐答案
这是一种方法
substring("aabbccccdd", seq(1, 9, 2), seq(2, 10, 2))
#[1] "aa" "bb" "cc" "cc" "dd"
或更普遍的
text <- "aabbccccdd"
substring(text, seq(1, nchar(text)-1, 2), seq(2, nchar(text), 2))
#[1] "aa" "bb" "cc" "cc" "dd"
这要快得多了
sst <- strsplit(text, "")[[1]]
out <- paste0(sst[c(TRUE, FALSE)], sst[c(FALSE, TRUE)])
它首先将字符串拆分为字符.然后,将偶数元素和奇数元素粘贴在一起.
It first splits the string into characters. Then, it pastes together the even elements and the odd elements.
时间
text <- paste(rep(paste0(letters, letters), 1000), collapse="")
g1 <- function(text) {
substring(text, seq(1, nchar(text)-1, 2), seq(2, nchar(text), 2))
}
g2 <- function(text) {
sst <- strsplit(text, "")[[1]]
paste0(sst[c(TRUE, FALSE)], sst[c(FALSE, TRUE)])
}
identical(g1(text), g2(text))
#[1] TRUE
library(rbenchmark)
benchmark(g1=g1(text), g2=g2(text))
# test replications elapsed relative user.self sys.self user.child sys.child
#1 g1 100 95.451 79.87531 95.438 0 0 0
#2 g2 100 1.195 1.00000 1.196 0 0 0
这篇关于如何将字符串拆分为给定长度的子字符串?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文