Plusieurs multiples en 1 coup

Bonjour,
J'ai un vecteur du genre V=c('A','ABC','AB','AA','CBA','ABC','BB','CC','CBA','AB','AA','CBA','B','ABC','AB','AA').
Je voudrais remplacer toutes les occurences de BB par 1 et celles de CBA par 2.
Mon résultat final serait donc V=c('A','ABC','AB','AA','2','ABC','1','CC','2','AB','AA','2','B','ABC','AB','AA').
J'ai essayé avec gsub, en faisant gsub(c('BB','CBA'),c('1','2'),V),
mais ça ne fonctionne pas, alors que gsub('BB','1',V) et gsub('CBA','2',V) fonctionnent.
Je peux donc faire gsub('BB','1',(gsub('CBA','2',V)), mais ça ne va pas être élégant si j'ai plus de 2 types de mots à remplacer.
Je voudrais donc faire mes remplacement en une seule fois,
J'ai essayé aussi c('1','2')[match(V,c('BB','CBA'))],
mais là encore ça bogue, il me met des NA là où il ne trouve pas la correspondance.
Est-ce que quelqu'un aurait une idée ?

une solution , mais avec le package stringr

Code:

---

stringr::str_replace_all(V,c(BB="1",CBA="2"))

---

cdlt

une autre réponse en R de base

Code:

---

1 2 3 4 5

replace( V , which(V%in% c("BB","CBA")) , c("1","2")[na.omit(match(V,c("BB","CBA")))] )

---

Deux solutions pour le prix d'une : super !
J'aime bien la 1ère solution avec la fonction str_replace_all.
Elle oblige à utiliser un package (stringr), mais elle est élégante.
Merci Xavier-Pierre