我需要将多个tibles的列表取消列出到不同的 Dataframe 中。此外，我想在每个未列出的数据框的名称中添加“_new”。我尝试了以下方法，但重命名并没有如我所愿（即，两个单独的 Dataframe 称为（a_new和b_new））。此外，我更喜欢避免使用循环，但不确定如何使用apply函数。你能帮我吗？

old_list <- list( a = tibble(AAA = rep("HEN", 16), 
                             BBB = rep(1, 16), 
                             CCC = rep(14, 16)),
                  b = tibble(GGG = rep("DOG", 16), 
                             DDD = rep(5, 16), 
                             FFF = rep(9, 16)))

new <- list()
for (name in names(old_list)){
  rename_tables <- paste0(name,"_new")
  new[[rename_tables]] <- list2env(old_list, envir = .GlobalEnv)
}