替换数据帧 - 特殊模式

Question

假设我有一个数据帧：

dd<-data.frame(a=c("xtr","la casa x-tr","x-tr")) 

      a 
      xtr 
la casa x-tr 
     x-tr 

我怎么能代替onlye的“XTR” occurrencies与“XTR”。所以，最后的结果将是

  a 
      xtr 
la casa xtr 
     xtr 

Answer 1

我们可以使用sub

dd$a <- sub("(x)-(tr)$", "\\1\\2", dd$a) 
dd$a 
#[1] "xtr"   "la casa xtr" "xtr" 

如果只有一个单一的-，然后

sub("-", "", dd$a)