为列表条目创建唯一对象名称的实现方法求助

要实现重复名称自动添加数字后缀的需求，核心是跟踪所有已使用过的名称，并对重复出现的名称递增编号，具体步骤和R代码如下：

实现步骤 #

• 初始化一个空的计数器，用来记录每个名称的出现次数
• 遍历大列表中的每个子列表，逐个处理子列表里的元素名称
• 对每个名称：
  • 若未在计数器中出现过，保留原名称，同时将该名称的计数设为1
  • 若已存在，给名称添加当前的计数值作为后缀，然后将计数加1
• 替换子列表的名称，最终输出处理后的列表

R代码实现 #

# 示例数据
listoflists <- list( 
    list(a = c(1,'a',3,4) , b = c(5,'b',6,7) ), 
    list(a = c(1,'a',2,6) , b = c(5,'b',0,8) ), 
    list(d = c(1,'a',2,6) , b = c(5,'b',0,8) ),
    list(d = c(1,'a',2,3) , b = c(5,'b',0,8) , a = c(5,'b',0,8)),
    list(d = c(1,'a',1,1))
)

# 初始化名称计数器
name_counter <- new.env(hash = TRUE)

# 遍历处理每个子列表
processed_list <- lapply(listoflists, function(sublist) {
    # 获取当前子列表的名称
    current_names <- names(sublist)
    # 处理每个名称
    new_names <- sapply(current_names, function(name) {
        if (!exists(name, envir = name_counter)) {
            # 首次出现，初始化计数
            assign(name, 1, envir = name_counter)
            name
        } else {
            # 重复出现，获取当前计数并生成新名称
            count <- get(name, envir = name_counter)
            new_name <- paste0(name, count)
            # 更新计数
            assign(name, count + 1, envir = name_counter)
            new_name
        }
    })
    # 替换子列表的名称
    names(sublist) <- new_names
    sublist
})

# 查看处理结果
str(processed_list)

代码说明 #

• 使用new.env()创建哈希环境存储计数器，比普通列表查找效率更高
• lapply()遍历大列表中的每个子列表，sapply()处理每个子列表的名称
• 每次遇到重复名称时，自动拼接当前计数作为后缀，计数同步递增，确保每个名称唯一

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