如何在R语言for循环的每次迭代中创建独立命名新列表？

你的问题核心是每次外层循环都重新初始化了my_list，且没有将每次循环生成的列表保存下来，导致最终只保留最后一次循环的结果。以下是两种可行的解决方案：

方案1：用主列表统一存储所有子列表 #

创建一个顶层列表，将my_vector每个元素对应的子列表作为顶层列表的元素，用my_vector的元素命名：

# 初始化主列表，用于存储所有子列表
main_list <- list()

for (c in my_vector) {
    x <- DBI::dbGetQuery(conn=con, statement=query)
    filename <- x[, 3]
    # 为当前循环的my_vector元素创建空的子列表
    current_list <- list()
    
    for (i in seq_along(filename)) {
         y <- DBI::dbGetQuery(conn=con, statement=query2)
         name <- filename[i]
         # 直接将查询结果存入子列表，原代码的tmp嵌套多余，可省略
         current_list[[name]] <- y
     }
    
    # 将填充好的子列表存入主列表，用my_vector的元素作为键名
    main_list[[c]] <- current_list
}

之后你可以通过main_list[[my_vector[1]]]访问第一个元素对应的子列表，结构清晰且不会丢失数据。

方案2：在全局环境中创建独立命名的列表 #

如果需要将每个子列表作为独立对象存在全局环境中，可以用assign()函数直接创建以my_vector元素命名的列表：

for (c in my_vector) {
    x <- DBI::dbGetQuery(conn=con, statement=query)
    filename <- x[, 3]
    # 创建空列表并以my_vector的元素命名，存入全局环境
    assign(c, list())
    current_list <- get(c)
    
    for (i in seq_along(filename)) {
         y <- DBI::dbGetQuery(conn=con, statement=query2)
         name <- filename[i]
         current_list[[name]] <- y
     }
    
    # 更新全局环境中的列表对象
    assign(c, current_list)
}

循环结束后，全局环境中会直接出现与my_vector元素同名的列表，比如my_vector包含"group1"，就可以直接用group1访问对应的列表。

额外优化建议 #

• 用seq_along(filename)替代1:length(filename)：当filename为空时，1:length()会生成1:0导致无效循环，seq_along()会返回空序列，更安全。
• 原代码中tmp <- list(y)会让每个列表元素变成嵌套列表，若无需嵌套可直接省略，直接赋值current_list[[name]] <- y即可。

内容的提问来源于stack exchange，提问作者Gen