有条件地替换R中列表列表中的特定值

my_list <- list(a = 1, b = 2, c = 3, d = 4)

for (key in names(my_list)) {
  if (my_list[[key]] == 2) {
    my_list[[key]] <- 10
  }
}

print(my_list)

$a
[1] 1

$b
[1] 10

$c
[1] 3

$d
[1] 4

my_list <- list(a = 1, b = 2, c = 3, d = 4)

replace_value <- function(x) {
  if (x == 2) {
    return(10)
  } else {
    return(x)
  }
}

my_list <- lapply(my_list, replace_value)

print(my_list)

$a
[1] 1

$b
[1] 10

$c
[1] 3

$d
[1] 4

my_list <- list(a = 1, b = 2, c = 3, d = 4)

replace_value_recursive <- function(lst) {
  for (key in names(lst)) {
    if (is.list(lst[[key]])) {
      lst[[key]] <- replace_value_recursive(lst[[key]])
    } else {
      if (lst[[key]] == 2) {
        lst[[key]] <- 10
      }
    }
  }
  return(lst)
}

my_list <- replace_value_recursive(my_list)

print(my_list)

$a
[1] 1

$b
[1] 10

$c
[1] 3

$d
[1] 4