使用R中新列表中的列表重新组织列表

new_list <- list(
  sublist1 = list(1, 2, 3),
  sublist2 = list("a", "b", "c"),
  sublist3 = list(matrix(1:9, nrow = 3)),
  sublist4 = list(data.frame(x = 1:3, y = 4:6))
)

original_list <- list(
  sublist1 = list("x", "y", "z"),
  sublist2 = list(10, 20, 30),
  sublist3 = list(matrix(1:4, nrow = 2)),
  sublist4 = list(data.frame(a = 1:3, b = 4:6))
)

original_list$sublist1 <- new_list$sublist1
original_list$sublist2 <- new_list$sublist2
original_list$sublist3 <- new_list$sublist3
original_list$sublist4 <- new_list$sublist4