替换R中列表中的多个值

my_list <- list("old_value", "old_value", "other_value", "old_value")
for (i in 1:length(my_list)) {
  if (my_list[[i]] == "old_value") {
    my_list[[i]] <- "new_value"
  }
}

my_list <- list("old_value", "old_value", "other_value", "old_value")
my_list <- lapply(my_list, function(x) ifelse(x == "old_value", "new_value", x))

library(purrr)
my_list <- list("old_value", "old_value", "other_value", "old_value")
my_list <- map(my_list, ~ ifelse(.x == "old_value", "new_value", .x))