문자열의 데이터 프레임에서 심볼 다음에 N 글자를 파싱

Question

$ 심볼 다음의 모든 문자를 제거하려는 문자열 데이터 프레임이 있습니다. 내가 $이 grepl("^\\$",strings)를 사용하여 시작하는 모든 문자열을 알아낼 수 있었다

strings <- data.frame("strings"=c("String test $ABCD","$BGI test", 
"super weird $nabc test","$500 giveway","another $Abc/a test")) 

공백, 특수 문자 다른 / 이상, 또는 수있을 때까지 나는 단지 문자를 원하지만 나는 문자열 곳을 잃었 $은 예를 들어 문자열의 중간에 있습니다. 또한, $0:9

출력 목표있는 모든 문자열을 제거하려는 것은 :

ABCD 
BGI 
nabc 
Abc/a 

은 그래서 space있을 때까지 grepl 또는 $을 발견하고 모든 characters을 유지 비슷한을 사용하는 방법을 찾기 위해 노력 , number, 또는

/ 중요 최소한의 경우 / 이외의 special character하지만, 통합 할 수있는 방법을 알아낼 수 있다면 모든 훌륭한 것! 감사.

Answer 1

gsub(".*\\$([a-zA-Z][a-zA-Z\\/]*).*", "\\1", 
    strings$strings[grepl("\\$[a-zA-Z]", strings$strings)], perl=TRUE) 
[1] "ABCD" "BGI" "nabc" "Abc/a" 

업데이트 : 영업 이익은 에 요청하지 포함/이후 문자. 다음과 같이 수행 할 수 있습니다.

gsub(".*\\$([a-zA-Z][a-zA-Z]*).*", "\\1", 
     strings$strings[grepl("\\$[a-zA-Z]", strings$strings)], perl=TRUE) 
[1] "ABCD" "BGI" "nabc" "Abc"