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