require(car)
x<-c(1,2,3,1,2,3,1,2,3)
x

# Ricodifica in un'altra variabile
y <- recode(x, "c(1,2)='A'; else='B'")

y

# Ricodifica nella stessa variabile
recode(x, "c(1,2)='A'; else='B'")