受josilber答案的启发，这里我们没有硬编码子列表的长度，而是使用lapply在结果中创建它们：

keys <- unique(c(names(l.1), names(l.2)))
setNames(lapply(keys, function(key) {
    l1 <- l.1[[key]]
    l2 <- l.2[[key]]
    len <- max(length(l1), length(l2))

    lapply(seq(len), function(i) c(l1[[i]], l2[[i]]))
  }),
  keys)

你可以使用lapply操作键来完成这个合并：

keys <- unique(c(names(l.1), names(l.2)))
setNames(lapply(keys, function(key) list(c(l.1[[key]][[1]], l.2[[key]][[1]]),
                                         c(l.1[[key]][[2]], l.2[[key]][[2]]))),
         keys)
# $a
# $a[[1]]
# [1] 10 20
# 
# $a[[2]]
# [1] 1 0
# 
# $b
# $b[[1]]
# [1] 10 20 30
# 
# $b[[2]]
# [1] 1 2 3
# 
# $c
# $c[[1]]
# [1]  9 12 13
# 
# $c[[2]]
# NULL

在这里，你可以在3行：

out <- l.1
mnames <- intersect(names(l.1), names(l.2))
out[mnames] <- Map(function(a, b) Map(c, a, b), l.1[mnames], l.2[mnames])

#$a
#$a[[1]]
#[1] 10 20
#$a[[2]]
#[1] 1 0
#
#$b
#$b[[1]]
#[1] 10 20 30
#$b[[2]]
#[1] 1 2 3
#
#$c
#$c[[1]]
#[1]  9 12 13
#$c[[2]]
#NULL

这是一种嵌套的合并函数，它似乎可以产生您想要的输出。我觉得应该有一个更简单的方法，但我想不出一个。它将优先使用第一个参数中的值，但如果存在匹配的名称或索引，则将与第二个参数中的值合并。

nestedMerge<-function(a,b) {
    if(is.list(a) & is.list(b)) {
        out<-list()
        if(!is.null(names(a))) {
            for(n in names(a)) {
                if(n %in% names(b) && !is.null(b[[n]])) {
                    out<-append(out, list(Recall(a[[n]], b[[n]])))
                } else {
                    out<-append(out, list(a[[n]]))
                }
                names(out)[length(out)]<-n
            }
        } else {
            for(i in seq_along(a))
                if(i <=length(b) && !is.null(b[[i]])) {
                    out<-append(out, Recall(a[[i]], b[[i]]))
                } else {
                    out<-append(out, list(a[[i]]))
                }
        }
        return(out)
    } else {
        return(list(c(a,b)))
    }
}

#and now, use the function
nestedMerge(l.1,l.2)

这是一个额外的解决方案。它使用mapply和c合并列表：

## get all possible names
l.names <- union(names(l.1), names(l.2)) 
## combine lists
r <- mapply(c, l.1[l.names], l.2[l.names]) 
## get rid of NULL entries
l.3 <- sapply(names(r), 
              function(x) r[[x]][!sapply(r[[x]], is.null)], USE.NAMES=TRUE)

我从找到的on this SO question on merging two lists和this R help question on how to delete null elements in a list的答案中改编了这个答案。
第一行收集存在于两个列表中的至少一个列表中的名称（即所有可能的名字）。第二行使用mapply、c和带有先前收集的名称的列表索引来合并列表，尽管存在额外的NULL条目。第三行删除了这些NULL条目，同时保留了列表名称。
注意这个答案确实去掉了列表元素c的NULL条目。