Recoder un vecteur

Suite de "est-ce que les élements d'un vecteur sont contenus dans un autre vecteur ?". Je veux remplacer "P0", "P1", "P2", "P3", "RF" par "Mar", "Jun", "Sep", "Dec", "Mar N+1".

> # Exemple > X <- rep(c("P0", "P1", "P2", "P3", "RF"), 2) > tableA <- c("P0", "P1", "P2", "P3", "RF") > tableB <- c("Mar", "Jun", "Sept", "Dec", "Mar N+1") > match(X,tableA) [1] 1 2 3 4 5 1 2 3 4 5 > X <- tableB[match(X,tableA)] > X [1] "Mar"    "Jun"     "Sept"    "Dec"     "Mar N+1" "Mar"     "Jun" [8] "Sept"   "Dec"     "Mar N+1" > > # Variation 1 > X <- rep(c("P0", "P1", "P2", "P3", "RF", "Pouet"), 2) > tableA <- c("P0", "P1", "P2", "P3", "RF") > tableB <- c("Mar", "Jun", "Sept", "Dec", "Mar N+1") > X <- tableB[match(X,tableA)] > X [1] "Mar"    "Jun"     "Sept"    "Dec"     "Mar N+1" NA        "Mar" [8] "Jun"    "Sept"    "Dec"     "Mar N+1" NA > > # Variation 2 > X <- rep(c("P0", "P1", "P2", "P3", "RF"), 2) > tableA <- c("P0", "P1", "P2", "P3", "RF", "Pouet") > tableB <- c("Mar", "Jun", "Sept", "Dec", "Mar N+1") > X <- tableB[match(X,tableA)] > X [1] "Mar"    "Jun"     "Sept"    "Dec"     "Mar N+1" "Mar"     "Jun" [8] "Sept"   "Dec"     "Mar N+1" > > # Variation 3 > X <- rep(c("P0", "P1", "P2", "P3", "RF", "Pouet"), 2) > tableA <- c("P0", "P1", "P2", "P3", "RF") > tableB <- c("Mar", "Jun", "Sept", "Dec", "Mar N+1", "ERROR") > X <- tableB[match(X,tableA,nomatch=NA)] # c'est le défaut > X [1] "Mar"    "Jun"     "Sept"    "Dec"     "Mar N+1" NA        "Mar" [8] "Jun"    "Sept"    "Dec"     "Mar N+1" NA > X <- rep(c("P0", "P1", "P2", "P3", "RF", "Pouet"), 2) > X <- tableB[match(X,tableA,nomatch=6)] > X [1] "Mar"    "Jun"     "Sept"    "Dec"     "Mar N+1" "ERROR"   "Mar" [8] "Jun"    "Sept"    "Dec"     "Mar N+1" "ERROR" > X <- rep(c("P0", "P1", "P2", "P3", "RF", "Pouet"), 2) > X <- tableB[match(X,tableA,nomatch=0)] > X [1] "Mar"    "Jun"     "Sept"    "Dec"     "Mar N+1" "Mar"     "Jun" [8] "Sept"   "Dec"     "Mar N+1" > X <- rep(c("P0", "P1", "P2", "P3", "RF", "Pouet"), 2) > X <- tableB[match(X,tableA,nomatch=7)] > X [1] "Mar"    "Jun"     "Sept"    "Dec"     "Mar N+1" NA        "Mar" [8] "Jun"    "Sept"    "Dec"     "Mar N+1" NA

Pfiou ...