从文本前后的R中的数据框中删除特殊字符

Question

我有以下数据框

1   +PAL+PEA+ + + + 

我想删除＆＃39; +＆＃39;在文本之前和之后获得类似

的内容

1   PAL+PEA 

Answer 1

尝试

gsub('^[+]*|[+ ]*$', '', str1)
#[1] "PAL+PEA"

数据

 str1 <- '+PAL+PEA+ + + +'

Answer 2

regmatches(str1,gregexpr("[aA-zZ]+[+]{1}[aA-zZ]+",str1))
[[1]]
[1] "PAL+PEA"