为列表条目创建唯一的对象名称

Question

我有示例数据如下：

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))
    )

我想重命名这些名称（例如a和b），（仅）如果它们已经被使用过。例如，在末尾添加一个数字。

我在思考解决这个问题的正确方法时遇到了一些困难。

有什么建议么？

Answer 1

也许有一种更优雅的方法，但只需浏览列表并重命名项目，同时记录每个名称的使用情况就可以了：

# all used names
names.used <- unique(unlist(sapply(listoflists, names)))
# usage counter for each name
names.n <- setNames(rep(0, length(names.used)), names.used)

for (i in seq_along(listoflists)) {
  for (j in seq_along(listoflists[[i]])) {
    
    name.ij <- names(listoflists[[i]])[j]
    
    # rename second and further occurrences
    if (names.n[name.ij] > 0) {
      names(listoflists[[i]])[j] <- paste0(name.ij, names.n[name.ij])
    }
    
    # update counter
    names.n[name.ij] <- names.n[name.ij] + 1
  }
}

# [[1]]
# [[1]]$a
# [1] "1" "a" "3" "4"
# 
# [[1]]$b
# [1] "5" "b" "6" "7"
# 
# 
# [[2]]
# [[2]]$a1
# [1] "1" "a" "2" "6"
# 
# [[2]]$b1
# [1] "5" "b" "0" "8"
# 
# 
# [[3]]
# [[3]]$d
# [1] "1" "a" "2" "6"
# 
# [[3]]$b2
# [1] "5" "b" "0" "8"
# 
# 
# [[4]]
# [[4]]$d1
# [1] "1" "a" "2" "3"
# 
# [[4]]$b3
# [1] "5" "b" "0" "8"
# 
# [[4]]$a2
# [1] "5" "b" "0" "8"
# 
# 
# [[5]]
# [[5]]$d2
# [1] "1" "a" "1" "1"