Regex 带括号的R正则表达式反转字符串

假设您想要反转一个字符串，该字符串中的部分被圆括号分隔开，而其他部分则没有。最好的正则表达式方法是什么？这里是我最后一个问题的链接，这个问题涉及到一个类似的问题

您也可以尝试从librarystringi中提取所有字符，以将字符连同括号一起提取为一个组\\[^]+\\或任何其他字符。在具有单个列表元素的列表中，我们可以使用[[1]]提取该元素，然后反转向量rev并使用collapse粘贴它=

---

@那么问题是关于如何反转向量？然后接近duplicate@akrun给你

x <- "(A|C|T)AG(C|T)(A|C|G|T)(A|C|G|T)(A|C|G|T)(A|C|G|T)(A|C|G|T)GCC(C|T)(A|C|G|T)(A|C|G|T)(A|C|G)"

# Desired output
rev_x
"(A|C|G)(A|C|G|T)(A|C|G|T)(C|T)CCG(A|C|G|T)(A|C|G|T)(A|C|G|T)(A|C|G|T)(A|C|G|T)(C|T)GA(A|C|T)"

library(stringi)
paste(rev(stri_extract_all(x, regex='\\([^)]+\\)|.')[[1]]), collapse='')
#[1] "(A|C|G)(A|C|G|T)(A|C|G|T)(C|T)CCG(A|C|G|T)(A|C|G|T)(A|C|G|T)(A|C|G|T)(A|C|G|T)(C|T)GA(A|C|T)"