고정 너비 문자 요소의 벡터에 문자열을 자릅니다.
https://stackoverflow.com/questions/2247045
italiano
english
français
española
中国
日本の
العربية
Deutsch
한국어
Português
Russian문제
텍스트 문자열이 포함 된 객체가 있습니다.
x <- "xxyyxyxy"
그리고 두 글자가 포함 된 각 요소가있는 벡터로 분할하고 싶습니다.
[1] "xx" "yy" "xy" "xy"
그것은 것 같습니다 strsplit 내 티켓이어야하지만 정규 표현식이 없기 때문에이 기능을 원하는 방식으로 덩어리로 묶는 방법을 알 수 없습니다. 어떻게해야합니까?
해결책
사용 substring 최선의 접근법입니다.
substring(x, seq(1, nchar(x), 2), seq(2, nchar(x), 2))
그러나 여기에 Plyr의 해결책이 있습니다.
library("plyr")
laply(seq(1, nchar(x), 2), function(i) substr(x, i, i+1))
다른 팁
다음은 문자열을 문자로 나누고 짝수 요소와 홀수 요소를 함께 붙이는 빠른 솔루션입니다.
x <- "xxyyxyxy"
sst <- strsplit(x, "")[[1]]
paste0(sst[c(TRUE, FALSE)], sst[c(FALSE, TRUE)])
벤치 마크 설정 :
library(microbenchmark)
GSee <- function(x) {
sst <- strsplit(x, "")[[1]]
paste0(sst[c(TRUE, FALSE)], sst[c(FALSE, TRUE)])
}
Shane1 <- function(x) {
substring(x, seq(1,nchar(x),2), seq(2,nchar(x),2))
}
library("plyr")
Shane2 <- function(x) {
laply(seq(1,nchar(x),2), function(i) substr(x, i, i+1))
}
seth <- function(x) {
strsplit(gsub("([[:alnum:]]{2})", "\\1 ", x), " ")[[1]]
}
geoffjentry <- function(x) {
idx <- 1:nchar(x)
odds <- idx[(idx %% 2) == 1]
evens <- idx[(idx %% 2) == 0]
substring(x, odds, evens)
}
drewconway <- function(x) {
c<-strsplit(x,"")[[1]]
sapply(seq(2,nchar(x),by=2),function(y) paste(c[y-1],c[y],sep=""))
}
KenWilliams <- function(x) {
n <- 2
sapply(seq(1,nchar(x),by=n), function(xx) substr(x, xx, xx+n-1))
}
RichardScriven <- function(x) {
regmatches(x, gregexpr("(.{2})", x))[[1]]
}
벤치 마크 1 :
x <- "xxyyxyxy"
microbenchmark(
GSee(x),
Shane1(x),
Shane2(x),
seth(x),
geoffjentry(x),
drewconway(x),
KenWilliams(x),
RichardScriven(x)
)
# Unit: microseconds
# expr min lq median uq max neval
# GSee(x) 8.032 12.7460 13.4800 14.1430 17.600 100
# Shane1(x) 74.520 80.0025 84.8210 88.1385 102.246 100
# Shane2(x) 1271.156 1288.7185 1316.6205 1358.5220 3839.300 100
# seth(x) 36.318 43.3710 45.3270 47.5960 67.536 100
# geoffjentry(x) 9.150 13.5500 15.3655 16.3080 41.066 100
# drewconway(x) 92.329 98.1255 102.2115 105.6335 115.027 100
# KenWilliams(x) 77.802 83.0395 87.4400 92.1540 163.705 100
# RichardScriven(x) 55.034 63.1360 65.7545 68.4785 108.043 100
벤치 마크 2 :
이제 더 큰 데이터가 있습니다.
x <- paste(sample(c("xx", "yy", "xy"), 1e5, replace=TRUE), collapse="")
microbenchmark(
GSee(x),
Shane1(x),
Shane2(x),
seth(x),
geoffjentry(x),
drewconway(x),
KenWilliams(x),
RichardScriven(x),
times=3
)
# Unit: milliseconds
# expr min lq median uq max neval
# GSee(x) 29.029226 31.3162690 33.603312 35.7046155 37.805919 3
# Shane1(x) 11754.522290 11866.0042600 11977.486230 12065.3277955 12153.169361 3
# Shane2(x) 13246.723591 13279.2927180 13311.861845 13371.2202695 13430.578694 3
# seth(x) 86.668439 89.6322615 92.596084 92.8162885 93.036493 3
# geoffjentry(x) 11670.845728 11681.3830375 11691.920347 11965.3890110 12238.857675 3
# drewconway(x) 384.863713 438.7293075 492.594902 515.5538020 538.512702 3
# KenWilliams(x) 12213.514508 12277.5285215 12341.542535 12403.2315015 12464.920468 3
# RichardScriven(x) 11549.934241 11730.5723030 11911.210365 11989.4930080 12067.775651 3
어때
strsplit(gsub("([[:alnum:]]{2})", "\\1 ", x), " ")[[1]]
기본적으로 분리기 (여기서 "")를 추가하고 그 다음에 사용 strsplit
strsplit은 문제가 될 것입니다.
strsplit(z, '[[:alnum:]]{2}')
올바른 지점에서 분할되지만 아무것도 남지 않습니다.
Substring & Friends를 사용할 수 있습니다
z <- 'xxyyxyxy'
idx <- 1:nchar(z)
odds <- idx[(idx %% 2) == 1]
evens <- idx[(idx %% 2) == 0]
substring(z, odds, evens)
여기에 한 가지 방법이 있지만 Regexen을 사용하지는 않습니다.
a <- "xxyyxyxy"
n <- 2
sapply(seq(1,nchar(a),by=n), function(x) substr(a, x, x+n-1))
Total Hack, JD이지만 완료됩니다.
x <- "xxyyxyxy"
c<-strsplit(x,"")[[1]]
sapply(seq(2,nchar(x),by=2),function(y) paste(c[y-1],c[y],sep=""))
[1] "xx" "yy" "xy" "xy"
도우미 기능 :
fixed_split <- function(text, n) {
strsplit(text, paste0("(?<=.{",n,"})"), perl=TRUE)
}
fixed_split(x, 2)
[[1]]
[1] "xx" "yy" "xy" "xy"
문자열 길이가 요청 된 길이의 배수가 아닌 경우 하위 문자로주의하십시오. +(N-1) 두 번째 순서에서 :
substring(x,seq(1,nchar(x),n),seq(n,nchar(x)+n-1,n))
글쎄, 나는이 작업을 수행하기 위해 다음 의사 코드를 사용했습니다.
- 길이 n의 각 덩어리에 특수 시퀀스를 삽입하십시오.
- 문자열을 상기 순서로 분할하십시오.
코드에서 나는했다
chopS <- function( text, chunk_len = 2, seqn)
{
# Specify select and replace patterns
insert <- paste("(.{",chunk_len,"})", sep = "")
replace <- paste("\\1", seqn, sep = "")
# Insert sequence with replaced pattern, then split by the sequence
interp_text <- gsub( pattern, replace, text)
strsplit( interp_text, seqn)
}
이것은 벡터가 아닌 스플릿 벡터 내부의 목록을 반환합니다.
C ++를 사용하면 더 빠를 수 있습니다. 비교 GSEE의 버전:
GSee <- function(x) {
sst <- strsplit(x, "")[[1]]
paste0(sst[c(TRUE, FALSE)], sst[c(FALSE, TRUE)])
}
rstub <- Rcpp::cppFunction( code = '
CharacterVector strsplit2(const std::string& hex) {
unsigned int length = hex.length()/2;
CharacterVector res(length);
for (unsigned int i = 0; i < length; ++i) {
res(i) = hex.substr(2*i, 2);
}
return res;
}')
x <- "xxyyxyxy"
all.equal(GSee(x), rstub(x))
#> [1] TRUE
microbenchmark::microbenchmark(GSee(x), rstub(x))
#> Unit: microseconds
#> expr min lq mean median uq max neval
#> GSee(x) 4.272 4.4575 41.74284 4.5855 4.7105 3702.289 100
#> rstub(x) 1.710 1.8990 139.40519 2.0665 2.1250 13722.075 100
set.seed(42)
x <- paste(sample(c("xx", "yy", "xy"), 1e5, replace = TRUE), collapse = "")
all.equal(GSee(x), rstub(x))
#> [1] TRUE
microbenchmark::microbenchmark(GSee(x), rstub(x))
#> Unit: milliseconds
#> expr min lq mean median uq max neval
#> GSee(x) 17.931801 18.431504 19.282877 18.738836 19.47943 27.191390 100
#> rstub(x) 3.197587 3.261109 3.404973 3.341099 3.45852 4.872195 100
내 테스트에서 아래 코드는 벤치마킹 된 이전 방법보다 빠릅니다. stri_sub는 매우 빠르며 seq.int는 seq보다 낫습니다. 또한 모든 2L을 다른 것으로 변경하여 문자열의 크기를 쉽게 변경할 수 있습니다.
library(stringi)
split_line <- function(x) {
row_length <- stri_length(x)
stri_sub(x, seq.int(1L, row_length, 2L), seq.int(2L, row_length, 2L))
}
문자열 덩어리가 2 자 길이에 차이가 눈치 채지 못했지만 더 큰 덩어리의 경우 약간 더 좋습니다.
split_line <- function(x) {
stri_sub(x, seq.int(1L, stri_length(x), 109L), length = 109L)
}
다음은 사용하는 옵션 중 하나입니다 stringi::stri_sub(). 노력하다:
x <- "xxyyxyxy"
stringi::stri_sub(x, seq(1, stringi::stri_length(x), by = 2), length = 2)
# [1] "xx" "yy" "xy" "xy"
제휴하지 않습니다 StackOverflow
