Recodificar múltiples variables en R

Me gustaría recodificar múltiples variables a la vez en R. Las variables están dentro de un marco de datos más grande. Aquí hay algunos datos de ejemplo:

 z <- data.frame (A = c(1,2,300,444,555),
              B = c(555,444,300,2,1),
              C = c(1,2,300,444,555),
              D = c(1,2,300,444,555))

Lo que me gustaría hacer es recodificar todos los valores que equivalen a 300 como 3, 444 como 4 y 555 como 5.

Pensé que posiblemente podría hacer esto en una lista. Esto es lo que probé:

example_list  = list(c("A", "B", "C", "D"))

example_list <- apply(z[,example_list], 1, function(x) ifelse(any(x==555, na.rm=F), 0.5,
                                                              ifelse(any(x==444), 0.25),
                                                              ifelse(any(x==300), 3, example_list)))

Me sale este error:

Error during wrapup: invalid subscript type 'list'

Luego intenté usar "lapply" y obtuve este error:

Error during wrapup: '1' is not a function, character or symbol

Incluso entonces no estoy seguro de que esta sea la mejor manera de hacer esto ... Me gustaría evitar hacer esto línea por línea para múltiples variables. Cualquier sugerencia sería increíble, ya que soy nuevo en R y no entiendo del todo qué estoy haciendo mal.

Encontré una pregunta similar en SO: Pregunta , pero no estoy seguro de cómo aplicar eso a mi problema específico.

Esto parece un poco torpe pero funciona:

mutate_cols <- c('A', 'B')

z[, mutate_cols] <- as.data.frame(lapply(z[, mutate_cols], function(x) ifelse(x == 300, 3, 
                                                                              ifelse(x == 444, 4, 
                                                                                     ifelse(x== 555, 5, x)))))

Utilizando case_when:

library(dplyr)
z %>% mutate_all(
    function(x) case_when(
        x == 300 ~ 3,
        x == 444 ~ 4,
        x == 555 ~ 5,
        TRUE ~ x
    )
)

  A B C D
1 1 5 1 1
2 2 4 2 2
3 3 3 3 3
4 4 2 4 4
5 5 1 5 5

Aquí hay un intento de base R que debería ser prolijamente ampliable y bastante rápido:

# set find and replace vectors
f <- c(300,444,555)
r <- c(3, 4, 5)
# replace!
m   <- lapply(z, function(x) r[match(x,f)] )
z[] <- Map(function(z,m) replace(m,is.na(m),z[is.na(m)]), z, m)

#  A B C D
#1 1 5 1 1
#2 2 4 2 2
#3 3 3 3 3
#4 4 2 4 4
#5 5 1 5 5

Esto debería funcionar.

library(plyr) 
new.z<- apply(z, 1, function(x) mapvalues(x, from = c(300, 444, 555), to = c(3, 4, 5)))

z =  data.frame (A = c(1,2,300,444,555),
                 B = c(555,444,300,2,1),
                 C = c(1,2,300,444,555),
                 D = c(1,2,300,444,555))



library(expss)

to_recode = c("A", "B", "C", "D")
recode(z[, to_recode]) = c(300 ~ 3, 444 ~ 4, 555 ~ 5)

Si ya tiene variables de factor y también desea variables de factor como resultado, puede usar el siguiente código:

library(tidyverse)
z <- data.frame (A = factor(c(1,2,300,444,555)),
                 B = factor(c(555,444,300,2,1)),
                 C = factor(c(1,2,300,444,555)),
                 D = factor(c(1,2,300,444,555)))

new.z <- z %>% 
mutate_all(function(x) recode_factor(x, "300" = "3", "444" = "4", "555" = "5"))