Efficient ways of creating matrix based on vector matches

Question

Please, consider the following code:

x <- c(\'dog\', \'cow\', \'horse\', \'rabbit\', \'bear\', \'seal\', \'lion\', \'ostrich\',\'cat\', \'hamster\')
y <- c(