Korzystanie R do analizowania i powrócić tekst w nawiasie

Question

Powiedzmy mam napis: „Yay, ciąg”

x <- "This is a string (Yay, string!)" 

chciałbym analizować ciąg i powrócić

Jak to zrobić?

Wypróbowałem kilka grep/grepl/gsub/sub/etc, ale nie mogłem znaleźć właściwej kombinacji regex lub argumentów. Westchnienie. Muszę pracować nad umiejętnościami wyrażeń regularnych.

Answer 1

Oto dwa sposoby na zrobienie go:

One: Znajdź ciąg chcesz i wymienić cały łańcuch z bitem, który został znaleziony. (Znany jako tylnym bazowania)

gsub(".*\\((.*)\\).*", "\\1", x) 
[1] "Yay, string!" 

To działa, ponieważ:

• użyć wstecznych \\1 odnieść się do dopasowanej ciąg w nawiasach (.*)
• Skoro chcesz wykluczyć nawiasów w Rzeczywisty ciąg, musisz uciec z nich z \\( i \\).

---

Dwa: Wymień wszystkie bity nie chcesz z pustymi strunami:

gsub(".*\\(|\\).*", "", x) 
[1] "Yay, string!" 

To działa, ponieważ | działa podobnie do OR.

Answer 2

qdap version 1.1.0 można to zrobić:

library(qdap) 
x <- "This is a string (Yay, string!)" 

bracketX(x) 
bracketXtract(x) 

Plony:

> bracketX(x) 
[1] "This is a string" 
> bracketXtract(x) 
[1] "Yay, string!" 

Choć jeśli nie wiele z tych rzeczy robi potem coraz qdap może być trochę przesada.

Edit: Z przykład Josha ...

> x <- "This is (a) string (Yay, string!)" 
> bracketX(x) 
[1] "This is string" 
> bracketXtract(x) 
[1] "a"   "Yay, string!" 

Answer 3

Ponadto, jeśli niektóre ciągi może zawierać kilka podłańcuchów, z których chcesz wyodrębnić, należy użyć wyrażenia regularnego power-tools gregexpr() i regmatches():

x <- "This is (a) string (Yay, string!)" 
pat <- "(?<=\\()([^()]*)(?=\\))" 
regmatches(x, gregexpr(pat, x, perl=TRUE)) 
# [[1]] 
# [1] "a"   "Yay, string!"