17
A
回答
38
这里是单程
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)])
它首先拆分字符串转换成字符。然后,将偶数元素和奇怪元素粘贴在一起。
计时
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
8
string <- "aabbccccdd"
# total length of string
num.chars <- nchar(string)
# the indices where each substr will start
starts <- seq(1,num.chars, by=2)
# chop it up
sapply(starts, function(ii) {
substr(string, ii, ii+1)
})
其中给出
[1] "aa" "bb" "cc" "cc" "dd"
1
人们可以使用一个矩阵来组中的字符:
s2 <- function(x) {
m <- matrix(strsplit(x, '')[[1]], nrow=2)
apply(m, 2, paste, collapse='')
}
s2('aabbccddeeff')
## [1] "aa" "bb" "cc" "dd" "ee" "ff"
不幸的是,第是奇数字符串长度的输入休息,给予警告:
s2('abc')
## [1] "ab" "ca"
## Warning message:
## In matrix(strsplit(x, "")[[1]], nrow = 2) :
## data length [3] is not a sub-multiple or multiple of the number of rows [2]
更不幸的是,g1
和g2
从@GSee不返回不正确的结果为奇数字符串长度的输入:
g1('abc')
## [1] "ab"
g2('abc')
## [1] "ab" "cb"
这里是s2精神中的功能,对每个组中的字符数取参数,并在必要时留下最后一个条目:
s <- function(x, n) {
sst <- strsplit(x, '')[[1]]
m <- matrix('', nrow=n, ncol=(length(sst)+n-1)%/%n)
m[seq_along(sst)] <- sst
apply(m, 2, paste, collapse='')
}
s('hello world', 2)
## [1] "he" "ll" "o " "wo" "rl" "d"
s('hello world', 3)
## [1] "hel" "lo " "wor" "ld"
(它确实比g2
慢,但通过的7约为系数比g1
更快)
+0
如果可能有奇数个字符,那么在我看来,处理这个事实会更快,引入一个'apply'循环。我敢打赌这是更快的:'out < - g2(x);如果(nchar(x)%% 2 == 1L)out [length(out)] < - substring(out [length(out)],1,1); out' – GSee 2013-02-18 19:44:19
1
丑但工程
sequenceString <- "ATGAATAAAG"
J=3#maximum sequence length in file
sequenceSmallVecStart <-
substring(sequenceString, seq(1, nchar(sequenceString)-J+1, J),
seq(J,nchar(sequenceString), J))
sequenceSmallVecEnd <-
substring(sequenceString, max(seq(J, nchar(sequenceString), J))+1)
sequenceSmallVec <-
c(sequenceSmallVecStart,sequenceSmallVecEnd)
cat(sequenceSmallVec,sep = "\n")
给出 ATG AAT AAA ģ
5
有两种容易的可能性:
s <- "aabbccccdd"
gregexpr
和regmatches
:regmatches(s, gregexpr(".{2}", s))[[1]] # [1] "aa" "bb" "cc" "cc" "dd"
strsplit
:strsplit(s, "(?<=.{2})", perl = TRUE)[[1]] # [1] "aa" "bb" "cc" "cc" "dd"
相关问题
- 1. 如何将字符串拆分为等长的子字符串?
- 2. 在指定长度的子字符串中拆分字符串
- 3. 将字符串变量拆分为指定长度的随机子字符串
- 4. 将字符串拆分为基于固定长度的子字符串vim
- 5. 将字符串按长度拆分为字符串?
- 6. 拆分固定长度的字符串
- 7. 如何将字符串拆分为java中的子字符串
- 8. 如何将字符串拆分为iOS中的子字符串?
- 9. 如何将字符串拆分为重复的子字符串
- 10. 将字符串拆分成长度更小的字符串
- 11. Awk--将字符串分成长度为n的子字符串
- 12. 如何在iOS中将字符串拆分为子字符串
- 13. 如何将字符串拆分为子字符串?
- 14. 字符串拆分/字符串替换基于字符长度
- 15. 将字符串拆分为字符串
- 16. 将字符串拆分为字符串
- 17. 将可变长度字符串分配给固定长度字符串
- 18. 如何将字符串切成给定长度的子字符串
- 19. 将java中的字符串拆分为固定长度的块
- 20. 将字符串拆分为更小的字符串。假定字符串的随机长度。
- 21. 将字符串拆分为特定长度的组
- 22. 将字符串拆分为具有特定长度的组
- 23. ruby将字符串拆分成固定长度的多个字符串
- 24. 在perl中将字符串拆分为可变长度的字符串
- 25. 如何将字符串拆分为字母字符串和数字字符串?
- 26. 将字符串生成器拆分为字符串字符串特定字符
- 27. 将字符串拆分为基于数组长度的字
- 28. 有没有更快的方法将字符串拆分成给定长度的子字符串?
- 29. 如何根据字符长度拆分字符串
- 30. C#拆分字符串 - 将字符串拆分为数组
有趣,不知道'substring'。因为'substr'不需要向量参数用于开始/结束,所以更好。 – 2012-07-23 20:23:25
辉煌!第二个版本真的非常快! – MadSeb 2012-07-24 01:54:32
我想知道是否有这样的事情会将“aabbbcccccdd”分成aa bbb ccccc dd 我现在使用grepexpr。 – jackStinger 2013-01-07 12:32:50