Eu tenho a preferencia de fazer tudo a mao, mas vc pode usar:
library(car)
table(recode(x, "c('Abobrinha', 'Avião')='Abobrinha ou Avião';
'Cachorro'='Cachorro'; 'Carro'='Carro'"))b _______________________________________________ R-br mailing list [email protected] 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.
