R中的交织列表

假设R中有两个列表，长度不一定相等，比如：

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

---

a这里有一个选项，使用ggplot2中的
interleave
功能。我相信这是可以改进的，但这只是一个开始：

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)

require（ggplot2）
交错这里有一种方法：

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"

交织（a，b）
#未列出（交错（a、b））
#[1]“a.1”“b.1”“a.2”“b.2”“a.3”“b.3”“b.4”
交错在研究一个类似的问题时，我遇到了Gabor Grothendieck（即？）针对某些情况的漂亮解决方案：

c(rbind(a,b))

当
a
和
b
都是列表，或者
a
和
b
都是向量时，这同样有效。这不是OP问题的精确解决方案，因为当
a
和
b
具有不同的长度时，它将循环使用较短序列的元素，并打印警告。然而，由于这个解决方案简单而优雅，并且为一个非常类似的问题提供了答案——这是一些人（比如我）的问题，他们最终找到了进入这个页面的途径——因此，它似乎值得作为一个答案添加
 
a我认为编辑时，现在唯一的要求是短列表必须是a，长列表必须是b，但这很容易检查。我想我只是更严格地解释OP的陈述。“较长列表的剩余元素在末尾追加”仅在您开始与较短列表的第一个元素进行交错时才对我有意义，依此类推。输出是否应该是列表？@Arun前面的
unlist
，仅使用
c（a，b）[idx]
可能更好，因为通常情况下，条目是复杂的对象，它们会被
取消列表
破坏。我正在研究如何将data.frame转换为无太多依赖项的纯字符串。这是处理行时打开/关闭标记的最简洁的方法（使用apply）！我将rbind（不含c）包装成paste&collapse=“”。出于某种原因，这似乎不适用于日期。它变成了一个整数列表。
a <- list('a.1','a.2', 'a.3')
b <- list('b.1','b.2', 'b.3', 'b.4')

interleave <- function(a, b) {
  mlab <- min(length(a), length(b)) 
  seqmlab <- seq_len(mlab) 
  c(rbind(a[seqmlab], b[seqmlab]), a[-seqmlab], b[-seqmlab]) 
}

interleave(a, b) 

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

}

c(rbind(a,b))

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

interleave <- function(a, b) {
  mlab <- min(length(a), length(b)) 
  seqmlab <- seq_len(mlab) 
  c(rbind(a[seqmlab], b[seqmlab]), a[-seqmlab], b[-seqmlab]) 
}

interleave(a, b)