'sub'로 대체하거나 일치하지 않음

Question

몇 달 전에 원래 입력 데이터로 작업 한 하위 명령문이 생겼습니다. 그 이후로 나는 추악한 과정을 다시 검사하도록 일하는 것을 멈췄습니다. 나는 그것을 공유하고 싫어하지만, 한 번에 여러 가지 일을 수행 :

active$id[grep("CIR",active$description)] <- sub(".*CIR0*(\\d+).*","\\1",active$description[grep("CIR",active$description)],perl=TRUE) 

이 문장은 설명 열에 포함 된 ID를 가지고 행을 찾아 새로운 id 컬럼을 만들었습니다. 하위 명령문은 "CIR0"다음에 오는 번호를 찾고 행 설명 내에 ID가있는 경우 id 열을 채 웁니다. 할당의 어느 한쪽을 부분 집합하는 임베디드 grep로 비효율적이라는 것을 알고 있습니다.

패턴이 일치하지 않으면 '하위'대체 값을 없거나 비워 둘 수있는 방법이 있습니까? 매우을 놓치고있는 것처럼 느껴지지만 커뮤니티의 도움을 요청하십시오. 고맙습니다. 당신이이 있는지 즉,

active$id[grep("CIR",active$description)] <- ifelse(match, replacement, "") 

match이 true로 평가해야하는 위치, ifelse() 사용하여 시도 할 수

| name | id | description  | 
|------+-----+-------------------| 
| a | 343 | Here is CIR00343 | 
| b |  | Didn't have it | 
| c | 123 | What is CIR| 
| d |  | CIR lacks a digit | 
| e | 452 | CIR452 is next | 

Answer 1

나는 몇 주 전에 같은 문제로 어려움을 겪고있었습니다. 나는 stringr 패키지에서 str_match 함수를 사용하여 끝냈다. 대상 문자열이 없으면 NA를 반환합니다. 결과를 정확히 부분 집합했는지 확인하십시오. 예 :

library(stringr) 
str = "Little_Red_Riding_Hood" 
sub(".*(Little).*","\\1",str) # Returns 'Little' 
sub(".*(Big).*","\\1",str) # Returns 'Little_Red_Riding_Hood' 
str_match(str,".*(Little).*")[1,2] #Returns 'Little' 
str_match(str,".*(Big).*")[1,2] # Returns NA 

Answer 2

나는이 경우 생각 : id를 열을 생성하는 결과

예 일치하고, replacement은 그 경우에 그 요소가 대체 될 것입니다. 마찬가지로 match이 false로 평가되면 해당 요소는 빈 문자열 (또는 원하는 경우 NA)로 바뀝니다.