Estava chegando em uma solução semelhante à proposta pelo Rodrigo até que li a resposta do Benilton.
gsub(".*(PESCADOR|EMBARCACAO).*", "\\1", dados[["pesc.emb"]])
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.