library(MASS)
data(survey)

library(tidyverse)
survey$Smoke <- fct_recode(survey$Smoke, Molto = "Heavy", Mai = "Never",
                           Regol = "Regul")

# oppure
livelli <- c(Molto = "Heavy", Mai = "Never", Regol = "Regul")
survey$Smoke <- fct_recode(survey$Smoke, !!! livelli)

# con mutate
survey <- survey %>%
  mutate(Smoke = fct_recode(Smoke, Molto = "Heavy", Mai = "Never",
                            Regol = "Regul"))