두 문자 사이의 간격을 정규식으로 채우는 방법

Question

다음과 같은 데이터 세트가 있습니다. desired.result와 같이 2 개의 1과 1 사이의 모든 점을 1로 바꾸고 싶습니다. 기왕 R에 regex으로이 작업을 수행 할 수 있습니까?

내가 시도 :

여기

regexpr("^1\\.1$", my.data$my.string, perl = TRUE) 

이 Characters between two exact characters

어떤 제안 주셔서 감사합니다 C#에서 솔루션입니다.

my.data <- read.table(text=' 
    my.string       state 
    ................1...............1. A 
    ......1..........................1 A 
    .............1.....2.............. B 
    ......1.................1...2..... B 
    ....1....2........................ B 
    1...2............................. C 
    ..........1....................1.. C 
    .1............................1... C 
    .................1...........1.... C 
    ........1....2.................... C 
    ......1........................1.. C 
    ....1....1...2.................... D 
    ......1....................1...... D 
    .................1...2............ D 
', header = TRUE, na.strings = 'NA', stringsAsFactors = FALSE) 

desired.result <- read.table(text=' 
    my.string       state 
    ................11111111111111111. A 
    ......1111111111111111111111111111 A 
    .............1.....2.............. B 
    ......1111111111111111111...2..... B 
    ....1....2........................ B 
    1...2............................. C 
    ..........1111111111111111111111.. C 
    .111111111111111111111111111111... C 
    .................1111111111111.... C 
    ........1....2.................... C 
    ......11111111111111111111111111.. C 
    ....111111...2.................... D 
    ......1111111111111111111111...... D 
    .................1...2............ D 
', header = TRUE, na.strings = 'NA', stringsAsFactors = FALSE) 

Answer 1

는 아래 \G 기능 및 lookaround 주장과 gsub를 사용하는 옵션입니다.

> gsub('(?:1|\\G(?<!^))\\K\\.(?=\\.*1)', '1', my.data$my.string, perl = TRUE) 
# [1] "................11111111111111111." "......1111111111111111111111111111" 
# [3] ".............1.....2.............." "......1111111111111111111...2....." 
# [5] "....1....2........................" "1...2............................." 
# [7] "..........1111111111111111111111.." ".111111111111111111111111111111..." 
# [9] ".................1111111111111...." "........1....2...................." 
# [11] "......11111111111111111111111111.." "....111111...2...................." 
# [13] "......1111111111111111111111......" ".................1...2............" 

\G 기능은 두 위치 중 하나에 일치 할 수있는 앵커; 문자열 위치의 시작 또는 마지막 일치 항목의 끝 위치. 문자열 위치의 시작 부분에서 점을 사용하지 않으려 고하는 것으로 보아서 lookaround 어설 션 \G(?<!^)을 사용하여 문자열의 시작 부분을 제외시킵니다.

\K 에스 케이프 시퀀스는보고 된 일치 항목의 시작점을 재설정하고 이전에 소비 된 문자는 더 이상 포함되지 않습니다.

정규식 here을 설명하는 전반적인 분석을 찾을 수 있습니다.

Answer 2

다음은 비교적 간단한 정규식과 gregexpr(), regmatches() 및 regmatches<-()의 표준 조합을 사용하여 해당 정규 표현식과 일치하는 부분 문자열을 식별, 추출, 작동 및 교체하는 옵션입니다. gsubfn를 사용

## Copy the character vector 
x <- my.data$my.string 
## Find sequences of "."s bracketed on either end by a "1" 
m <- gregexpr("(?<=1)\\.+(?=1)", x, perl=TRUE) 
## Standard template for operating on and replacing matched substrings 
regmatches(x,m) <- sapply(regmatches(x,m), function(X) gsub(".", "1", X)) 

## Check that it worked 
head(x) 
# [1] "................11111111111111111." "......1111111111111111111111111111" 
# [3] ".............1.....2.............." "......1111111111111111111...2....." 
# [5] "....1....2........................" "1...2............................." 

Answer 3

는 첫 번째 인수는 일치하는 1과 1의 사이의 캐릭터와 후자를 캡처하는 정규 표현식입니다. 문자열 (1 개)의 복수의 쌍이있을 수 있다면

가

library(gsubfn) 
transform(my.data, my.string = gsubfn("1(.*)1", ~ gsub(".", 1, x), my.string)) 

후 정기적으로 "1(.*?)1"을 사용 번째 인수는 함수이고, 1 포착 문자열의 각 문자를 대체 gsub 사용 식 표기법으로 표현 표현 대신.

1(.*)1 

Debuggex Demo