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

Question

I have the following data frame

1   +PAL+PEA+ + + + 

I want to remove the '+' before and after the text and get something like

1   PAL+PEA 

Answer 1

Try

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

data

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

Answer 2

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