利用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;
}