Entiendo que lo que buscas es combinar dos vectores, intercalando en orden cada elemento. Una forma muy simple es usando la función rbind
:
A <- c(11, 20, 30, 40)
B <- c(1, 2, 3, 4)
c(rbind(A, B))
> [1] 11 1 20 2 30 3 40 4
Esto tiene un único problema, tal como aclara @mpaladino, que con vectores de tamaños distintos se reciclan valores del vector mayor, además de emitirse un "Warning", un ejemplo sería:
A <- c(11, 20, 30, 40, 50)
B <- c(1, 2, 3, 4)
c(rbind(A, B))
> [1] 11 1 20 2 30 3 40 4 50 1
Para vectores de distinto tamaño, hay una excelente respuesta en esta pregunta
c(A, B)[order(c(seq_along(A)*2 - 1, seq_along(B)*2))]
Esta solución es muy elegante y sencilla y contempla mas posibilidades que la primera, por ejemplo longitudes distintas de vectores e incluso alguno de los vectores vacíos. Veamos que se está haciendo:
c(A, B)
, nada raro, combina los dos vectores uno detrás del otro es decir [1] 11 20 30 40 1 2 3 4
c(seq_along(A)*2 - 1, seq_along(B)*2)
genera el orden que le vamos a dar a los elementos haciendo que el primer vector se ordene en posiciones impares y el segundo en pares, es decir: [1] 1 3 5 7 2 4 6 8
- Por último se aplica el
order
sobre el vector inicial c(A, B)
y reordenamos los elemento tal como plantea tu pregunta.