Перечислить списки в R

Скажем, что у меня есть два списка в 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')

без использования цикла. Я знаю, что mapply работает для случая, когда оба списка имеют равную длину.

Ответ 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"

Как указывает @James, так как вам нужен список назад, вы должны сделать:

(c(a,b))[idx]

Ответ 2

Изучая аналогичный вопрос, я встретил это прекрасное решение Габора Гротендика (например, @GGrothendieck?) Для некоторых случаев:

c(rbind(a,b))

Это работает одинаково хорошо, когда a и b - оба списка, или когда a и b являются обоими векторами. Это не точное решение вопроса OP, потому что когда a и b имеют разную длину, он будет перерабатывать элементы более короткой последовательности, печатая предупреждение. Однако, поскольку это решение является простым и изящным, и дает ответ на очень похожий вопрос - вопрос некоторых людей (таких как я), которые в итоге попадают на эту страницу - казалось, стоит добавить в качестве ответа.

Ответ 3

Здесь один параметр использует функцию 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]] в последней строке, которая позволит избежать этого вырожденного случая.

Ответ 4

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

}

Ответ 5

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

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

# From @Arun
interleave2 <- function(a, b) {
  idx=order(c(seq_along(a), seq_along(b)))
  c(a,b)[idx]
}

interleave1(a, b) 
interleave2(a, b)

От http://r.789695.n4.nabble.com/Interleaving-elements-of-two-vectors-tp795123p1691409.html

Это немного быстрее, чем @Arun: