利用R語言如何去除字符串中成對的括號

近日，遇到一個問題，編寫程序，刪除任意字符串中包含的所有成對的括號及括號里面的字符，如字符“AB(CD)EFG(I)JK”處理成“ABEFJK”我們來利用R語言中的正則化表達式實現，由于樓主對R語言也在積極學習當中，所以將解決問題時遇到的困難和錯誤的程序也貼出來，希望能幫到大家，若有人有更好的方法，歡迎積極留言。

首先，嘗試利用gsub函數首先，嘗試利用gsub函數
a<-"AB(CD)EFG(I)JK"
gsub("[(.*)]", "", a)
[1] “ABCDEFGIJK”
發現只是把括號去除了，沒有去掉括號當中的字符。
gsub("\\(.*\\)","",a)
[1]”ABJK”
能去掉第一個左括號和第一個右括號之間的字符
gsub("\\(.*?\\)","",a)

[1] “ABEFGJK”
終于去掉所有的括號
然后，另外一個方法就是利用(stringr)包，這個包比較好記，語法沒有那么生硬。stringr包是用來處理字符串的。R語言本身的 字符處理 能力已經不錯了，但使用起來并不是很方便。stringr包將原本的字符處理函數進行了打包，統一了函數名和參數。在增強功能基礎上，還能處理向量化數據并兼容非字符數據。stringr包號稱能讓處理字
 library(stringr)
 str_replace_all(a,"\\((.*?)\\)","");#去掉所有的括號和括號中的值
下面的程序是樓主請教一位C語言高手寫出的程序。
int main(int argc, char* argv[])
{
  // setup input string and output string
  std::string str_input = "(ab)cd(efg)h(i)(jk)";
  int len = str_input.length();
  std::string str_output;
  str_output.reserve(len);

  // init bool var 'omit'
  bool omit = false;
  // loop through two strings
  for(int i = 0;i < len;++i)
  {
    // refine status of 'omit'
    if(str_input[i] == '(')
      // let 'omit' to be 'true', if '(' encountered at current position
{
  omit = true;
}
else if(i-1 >= 0 && i-1 < len && str_input[i-1] == ')')
  // let 'omit' to be 'false' if the previous position is ')'
{
  omit = false;
}

// copy from input into output if 'omit' is 'false
                if(!omit)
                {
                        str_output += str_input[i];
                }
        }

        // print input string
        std::cout << "input string: " << str_input << std::endl;
        // print output string
        std::cout << "output string: " << str_output << std::endl;

        return 0;
}