交错名单

Question

比方说，我有两个名单中R，不一定相等的长度，如：

a <- list('a.1','a.2', 'a.3') 
b <- list('b.1','b.2', 'b.3', 'b.4') 

什么是构造交错元素的列表的最佳方式，其中，曾经的元素较短的列表已被添加，较长列表的其余元素被添加在末尾？，如：

interleaved <- list('a.1','b.1','a.2', 'b.2', 'a.3', 'b.3','b.4') 

不使用循环。我知道地图适用于两个列表具有相同长度的情况。

Answer 1

这里有一种方法：

idx <- order(c(seq_along(a), seq_along(b))) 
unlist(c(a,b))[idx] 

# [1] "a.1" "b.1" "a.2" "b.2" "a.3" "b.3" "b.4" 

正如@詹姆斯所指出的，因为你需要一个列表回来了，你应该做的：

(c(a,b))[idx] 

Answer 2

下面是使用interleave函数的一个选项，从ggplot2。我敢肯定，这可以改进，但它是一个开始：

require(ggplot2) 
Interleave <- function(x,y){ 
    v <- list(x,y) 
    lengths <- sapply(v,length) 
    mn <- min(lengths) 
    v <- v[order(lengths)] 
    c(ggplot2:::interleave(v[[1]],v[[2]][seq_len(mn)]),v[[2]][(mn+1):length(v[[2]])]) 
} 

Interleave(a,b) 
Interleave(b,a) 

特别是，这会做奇怪的事情，如果名单实际上是相同的长度。也许有人会用最好的方式编造最后一行v[[2]]的索引，以避免这种退化的情况。

Answer 3

interleave(a, b) 

# unlist(interleave(a, b)) 
# [1] "a.1" "b.1" "a.2" "b.2" "a.3" "b.3" "b.4" 


interleave <- function(a, b) { 

    shorter <- if (length(a) < length(b)) a else b 
    longer <- if (length(a) >= length(b)) a else b 

    slen <- length(shorter) 
    llen <- length(longer) 


    index.short <- (1:slen) + llen 
    names(index.short) <- (1:slen) 

    lindex <- (1:llen) + slen 
    names(lindex) <- 1:llen 


    sindex <- 1:slen 
    names(sindex) <- 1:slen 

    index <- c(sindex, lindex) 
    index <- index[order(names(index))] 

    return(c(a, b)[index]) 

} 

Answer 4

在调查类似的问题，我来了横跨this Gabor Grothendieck的美丽解决方案（即@GGrothendieck？）在某些情况下：

c(rbind(a,b)) 

当a和b都是列表或a和b都是矢量时，此功能同样适用。这不是OP的问题的精确解决方案，因为当a和b具有不同的长度时，它将回收较短序列的元素并打印警告。然而，由于这个解决方案简单而优雅，并且为一个非常类似的问题提供了一个答案 - 这是一些人（像我这样）通过这个页面找到他们的方式的问题 - 似乎值得添加一个答案。