R正则表达式用括号反转字符串

Question

假设您想要反转一个字符串，该字符串由括号和不是零件分开。什么是最好的正则表达式方法来解决这个问题？以下是我针对类似问题的最后一个问题的链接R regex - splitting between parentheses

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)"

Answer 1

您也可以尝试stri_extract_all library(stringi)来提取字符以及括号作为一组（\\([^)]+\\)）或（|）任何其他字符（{{ 1}}）在.中有一个列表元素，我们可以使用list提取，然后反转[[1]]（vector）和rev它与paste

collapse=''