문자에서 스트립 단어를 제거하십시오.

Question

문자 "vars"가 있습니다.

vars=c("cogD", "relevel(cbsnivcat3f, \"Lower\")", "relevel(leidingf, \"geen\")", 
"relevel(ocdisf, \"Law\")") 

나는 relevel(cbsnivcat3f, \"Lower\") 만 "cbsnivcat3f"

내 목표는의 "("와 예 브래킷과 쉼표 사이의 단어를 너무하고 위로 ","사이에있는 단어를 얻으려면 : vars= c("cogD","cbsnivcat3f","leidingf”,"ocdisf")

Answer 1

정규 표현식보십시오 :

gsub("relevel\\((.*?), .*", "\\1", vars) 
[1] "cogD"  "cbsnivcat3f" "leidingf" "ocdisf" 

Answer 2

(가) rm_between은 내가 유지하고있는 qdapRegex에서 작동하며, 왼쪽과 오른쪽 바운드 사이에서 하위 문자열을 잡을 수 있습니다. 이 상황에서 잘 작동합니다. 마지막 단계에서 NA을 원래 값으로 바꿉니다.

library(qdapRegex) 
out <- unlist(rm_between(vars, "(", ",", extract=TRUE)) 
out[is.na(out)] <- vars[is.na(out)] 
out 

## [1] "cogD"  "cbsnivcat3f" "leidingf" "ocdisf" 

배후 정규 expressiob은 다음과 같습니다 또한베이스와 함께 사용할 수 있습니다 "(().*?(,)", stringi 또는 stringr 방법.