[r] 문자열의 일부 제거

Program / 글쓴이

문자열의 일부를 제거하려면 어떻게합니까? 예를 들어 ATGAS_1121I want to remove everything before _.

답변

정규식을 사용하십시오. 이 경우 다음을 사용할 수 있습니다 gsub.

gsub("^.*?_","_","ATGAS_1121")
[1] "_1121"

이 정규식은 문자열의 시작 (^), 0 회 이상 반복되는 모든 문자 (.) (*) 및 밑줄 (_)과 일치합니다. ? 일치 만 첫 번째 밑줄만큼 멀도록 일치를 “지연”으로 만듭니다. 해당 일치는 밑줄로 대체됩니다. 자세한 ?regex내용 및 참조는를 참조하십시오.

답변

이를 위해 내장 strsplit 을 사용할 수 있습니다 .

> s = "TGAS_1121"
> s1 = unlist(strsplit(s, split='_', fixed=TRUE))[2]
> s1
 [1] "1121"

strsplit 은 split 매개 변수 에서 구문 분석 된 두 문자열을 목록 으로 반환 합니다 . 그것은 아마도 당신이 원하는 것이 아니므로 unlist 에서 호출을 래핑 한 다음 벡터의 두 요소 중 두 번째 요소 만 반환되도록 해당 배열 을 인덱싱 하십시오.

마지막으로 고정 매개 변수는 분할 매개 변수가 정규 표현식이 아니라 리터럴 일치 문자임을 나타 내기 위해 TRUE로 설정되어야합니다.

답변

Tidyverse와 같은 사람이라면 다음은 스트링거 솔루션입니다.

R> library(stringr)
R> strings = c("TGAS_1121", "MGAS_1432", "ATGAS_1121")
R> strings %>% str_replace(".*_", "_")
[1] "_1121" "_1432" "_1121"
# Or:
R> strings %>% str_replace("^[A-Z]*", "")
[1] "_1121" "_1432" "_1121"

답변

벡터 인 strsplit경우 솔루션 s은 다음과 같습니다 .

> s <- c("TGAS_1121", "MGAS_1432")
> s1 <- sapply(strsplit(s, split='_', fixed=TRUE), function(x) (x[2]))
> s1
[1] "1121" "1432"

답변

아마도 가장 직관적 인 해결책은 아마도 2가 아닌 하나의 인수 만있는 것보다 훨씬 쉬운 stringr함수 를 사용하는 것입니다.str_removestr_replace

예제에서 유일한 까다로운 부분은 밑줄을 유지하고 싶지만 가능하다는 것입니다 (?=pattern). 지정된 문자열 패턴을 찾을 때까지 정규 표현식과 일치해야합니다 .

예보기 :

strings = c("TGAS_1121", "MGAS_1432", "ATGAS_1121")
strings %>% stringr::str_remove(".+?(?=_)")

[1] "_1121" "_1432" "_1121"

답변

여기에 패키지를 strsplit사용하는 데이터 프레임에 대한 솔루션dplyr

col1 = c("TGAS_1121", "MGAS_1432", "ATGAS_1121")
col2 = c("T", "M", "A")
df = data.frame(col1, col2)
df
        col1 col2
1  TGAS_1121    T
2  MGAS_1432    M
3 ATGAS_1121    A

df<-mutate(df,col1=as.character(col1))
df2<-mutate(df,col1=sapply(strsplit(df$col1, split='_', fixed=TRUE),function(x) (x[2])))
df2

  col1 col2
1 1121    T
2 1432    M
3 1121    A

답변