How to concatenate elements of equal size vectors alternatively in R?

If we have multiple vectors and we want to combine the vector elements alternatively then we can use rbind function along with c function.

For Example, if we have three vectors say X, Y, and Z as −

X = 1, 2, 3
Y = 4, 5, 6
Z = 7, 8, 9

Then, we can combine the elements in these vectors alternatively by using the below command −

c(rbind(X,Y,Z,))

Example 1

To concatenate elements of equal size vectors add the following code to the above snippet −

x1<-rpois(50,5)
x1

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] 5 6 1 5 6 7 2 7 6 4 9 10 3 5 8 7 4 3 5 5 8 5 4 3 6
[26] 1 5 5 8 6 5 4 2 7 2 3 6 4 7 8 3 5 2 6 2 6 6 0 8 7

To concatenate elements of equal size vectors add the following code to the above snippet −

x1<-rpois(50,5)
x2<-rpois(50,5)
x2

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] 7 2 3 2 3 3 3 7 4 6 5 7 3 5 3 5 5 7 6 3 4 6 5 3 2
[26] 5 9 6 5 5 1 0 4 10 5 6 4 4 7 4 5 9 1 3 5 8 8 2 6 4

To concatenate elements of equal size vectors add the following code to the above snippet −

x1<-rpois(50,5)
x2<-rpois(50,5)
x3<-rpois(50,5)
x3

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] 7 6 3 6 3 4 3 2 6 4 1 6 2 4 5 5 9 7 6 10 2 4 4 4 8
[26] 9 3 4 3 6 10 6 3 7 4 4 3 4 3 6 8 9 6 4 7 6 6 4 5 6

To concatenate elements of equal size vectors add the following code to the above snippet −

x1<-rpois(50,5)
x2<-rpois(50,5)
x3<-rpois(50,5)
x4<-rpois(50,5)
x4

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] 3 4 6 5 8 4 5 2 6 5 3 5 2 10 3 5 4 9 4 3 7 6 12 5 2
[26] 10 5 11 9 5 7 6 3 2 8 7 5 2 3 4 5 4 8 2 7 4 12 2 5 6

To concatenate elements of equal size vectors add the following code to the above snippet −

x1<-rpois(50,5)
x2<-rpois(50,5)
x3<-rpois(50,5)
x4<-rpois(50,5)
c(rbind(x1,x2,x3,x4))

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] 5 7 7 3 6 2 6 4 1 3 3 6 5 2 6 5 6 3 3 8 7 3 4 4 2
[26] 3 3 5 7 7 2 2 6 4 6 6 4 6 4 5 9 5 1 3 10 7 6 5 3 3
[51] 2 2 5 5 4 10 8 3 5 3 7 5 5 5 4 5 9 4 3 7 7 9 5 6 6
[76] 4 5 3 10 3 8 4 2 7 5 6 4 6 4 5 4 12 3 3 4 5 6 2 8 2
[101] 1 5 9 10 5 9 3 5 5 6 4 11 8 5 3 9 6 5 6 5 5 1 10 7 4
[126] 0 6 6 2 4 3 3 7 10 7 2 2 5 4 8 3 6 4 7 6 4 3 5 4 4
[151] 4 2 7 7 3 3 8 4 6 4 3 5 8 5 5 9 9 4 2 1 6 8 6 3 4
[176] 2 2 5 7 7 6 8 6 4 6 8 6 12 0 2 4 2 8 6 5 5 7 4 6 6

Example 2

To concatenate elements of equal size vectors add the following code to the above snippet −

y1<-sample(LETTERS[1:26],50,replace=TRUE)
y1

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] "V" "J" "M" "O" "H" "N" "D" "K" "H" "D" "B" "V" "I" "N" "C" "U" "U" "E" "Q"
[20] "N" "H" "G" "U" "I" "B" "Z" "L" "Q" "C" "M" "W" "E" "Q" "V" "T" "D" "V" "O"
[39] "U" "P" "W" "R" "X" "H" "L" "E" "I" "X" "B" "B"

To concatenate elements of equal size vectors add the following code to the above snippet −

y1<-sample(LETTERS[1:26],50,replace=TRUE)
y2<-sample(LETTERS[1:26],50,replace=TRUE)
y2

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] "J" "F" "L" "T" "Z" "I" "C" "M" "X" "W" "G" "U" "Q" "X" "S" "I" "E" "F"
"B"
[20] "G" "B" "N" "D" "R" "W" "V" "K" "F" "H" "R" "V" "J" "K" "V" "J" "J" "O"
"F"
[39] "T" "V" "Y" "X" "W" "B" "S" "J" "M" "D" "Y" "V"

To concatenate elements of equal size vectors add the following code to the above snippet −

y1<-sample(LETTERS[1:26],50,replace=TRUE)
y2<-sample(LETTERS[1:26],50,replace=TRUE)
y3<-sample(LETTERS[1:26],50,replace=TRUE)
y3

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] "L" "D" "W" "O" "P" "G" "K" "A" "A" "W" "S" "D" "A" "J" "Z" "H" "J" "O" "M"
[20] "A" "R" "L" "T" "J" "M" "D" "L" "W" "L" "C" "E" "H" "H" "S" "U" "J" "J" "R"
[39] "A" "P" "D" "F" "N" "G" "L" "K" "N" "N" "T" "A"

To concatenate elements of equal size vectors add the following code to the above snippet −

y1<-sample(LETTERS[1:26],50,replace=TRUE)
y2<-sample(LETTERS[1:26],50,replace=TRUE)
y3<-sample(LETTERS[1:26],50,replace=TRUE)
y4<-sample(LETTERS[1:26],50,replace=TRUE)
y4

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] "Z" "E" "D" "P" "T" "E" "K" "P" "X" "N" "Y" "D" "Z" "U" "A" "H" "J" "J" "G"
[20] "B" "K" "V" "A" "W" "Y" "F" "Q" "E" "J" "S" "V" "S" "I" "M" "H" "U" "F" "D"
[39] "D" "G" "D" "G" "Y" "L" "V" "B" "M" "V" "Y" "E"

To concatenate elements of equal size vectors add the following code to the above snippet −

y1<-sample(LETTERS[1:26],50,replace=TRUE)
y2<-sample(LETTERS[1:26],50,replace=TRUE)
y3<-sample(LETTERS[1:26],50,replace=TRUE)
y4<-sample(LETTERS[1:26],50,replace=TRUE)
c(rbind(y1,y2,y3,y4))

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] "V" "J" "L" "Z" "J" "F" "D" "E" "M" "L" "W" "D" "O" "T" "O" "P" "H" "Z"
[19] "P" "T" "N" "I" "G" "E" "D" "C" "K" "K" "K" "M" "A" "P" "H" "X" "A" "X"
[37] "D" "W" "W" "N" "B" "G" "S" "Y" "V" "U" "D" "D" "I" "Q" "A" "Z" "N" "X"
[55] "J" "U" "C" "S" "Z" "A" "U" "I" "H" "H" "U" "E" "J" "J" "E" "F" "O" "J"
[73] "Q" "B" "M" "G" "N" "G" "A" "B" "H" "B" "R" "K" "G" "N" "L" "V" "U" "D"
[91] "T" "A" "I" "R" "J" "W" "B" "W" "M" "Y" "Z" "V" "D" "F" "L" "K" "L" "Q"
[109] "Q" "F" "W" "E" "C" "H" "L" "J" "M" "R" "C" "S" "W" "V" "E" "V" "E" "J"
[127] "H" "S" "Q" "K" "H" "I" "V" "V" "S" "M" "T" "J" "U" "H" "D" "J" "J" "U"
[145] "V" "O" "J" "F" "O" "F" "R" "D" "U" "T" "A" "D" "P" "V" "P" "G" "W" "Y"
[163] "D" "D" "R" "X" "F" "G" "X" "W" "N" "Y" "H" "B" "G" "L" "L" "S" "L" "V"
[181] "E" "J" "K" "B" "I" "M" "N" "M" "X" "D" "N" "V" "B" "Y" "T" "Y" "B" "V"
[199] "A" "E"

Example 3

To concatenate elements of equal size vectors add the following code to the above snippet −

z1<-round(rnorm(50),2)
z1

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] -0.07 -0.32 0.88 -0.37 -0.03 1.38 -0.13 -0.80 -0.01 -1.14 0.29 0.32
[13] -0.98 0.18 -2.06 -0.98 -0.54 -0.76 -0.30 -0.30 -0.11 -0.04 1.20 -0.18
[25] -1.00 1.94 -2.42 0.39 0.22 -0.15 0.24 -0.05 1.66 0.78 -0.11 1.06
[37] -0.80 0.78 -1.05 0.94 0.43 -0.35 0.18 -0.07 0.52 0.42 -0.42 -0.89
[49] -0.81 -2.22

To concatenate elements of equal size vectors add the following code to the above snippet −

z1<-round(rnorm(50),2)
z2<-round(rnorm(50),2)
z2

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] -1.33 0.09 -0.90 0.34 1.06 -0.05 -0.71 0.39 -0.65 -0.23 0.18 0.10
[13] -0.91 0.48 -0.98 1.77 2.93 1.41 0.50 0.24 -0.56 -0.92 0.44 -0.90
[25] -0.99 0.23 0.63 0.69 0.60 -0.77 -1.14 -1.28 1.04 -1.54 -0.91 1.41
[37] -0.83 0.32 0.18 -0.24 0.31 -0.30 -1.13 -0.33 -0.59 -1.51 -0.53 -0.19
[49] 1.55 0.46

To concatenate elements of equal size vectors add the following code to the above snippet −

z1<-round(rnorm(50),2)
z2<-round(rnorm(50),2)
z3<-round(rnorm(50),2)
z3

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] 1.41 0.60 -0.88 -1.24 0.02 -0.29 -0.79 1.74 -0.22 -2.03 0.22 0.12
[13] 0.42 -1.69 -0.81 -1.14 1.20 0.45 1.23 -0.62 0.06 -0.84 -0.78 0.04
[25] 2.29 -0.69 1.05 -0.46 -0.12 0.38 -0.30 1.90 1.22 0.33 0.57 0.43
[37] 0.85 0.18 -1.13 0.75 0.14 -0.76 0.58 -0.51 -0.37 0.54 -1.04 1.31
[49] 1.12 0.70

To concatenate elements of equal size vectors add the following code to the above snippet −

z1<-round(rnorm(50),2)
z2<-round(rnorm(50),2)
z3<-round(rnorm(50),2)
z4<-round(rnorm(50),2)
z4

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] 0.22 -0.73 2.12 0.77 -2.08 -0.96 1.54 -1.15 0.32 0.19 0.44 0.14
[13] 0.38 -0.29 -0.50 1.44 0.03 1.02 -0.16 -1.29 -1.62 -0.74 -0.76 -1.43
[25] 0.53 1.25 0.04 1.11 0.41 1.80 -2.40 0.04 -1.25 0.12 -1.49 1.28
[37] 1.39 -0.05 -0.46 -1.26 1.21 -0.32 -0.67 1.90 -0.48 1.26 -0.51 -0.08
[49] -0.02 -1.08

To concatenate elements of equal size vectors add the following code to the above snippet −

z1<-round(rnorm(50),2)
z2<-round(rnorm(50),2)
z3<-round(rnorm(50),2)
z4<-round(rnorm(50),2)
c(rbind(z1,z2,z3,z4))

Output

If you execute all the above given snippets as a single program, it generates the following Output −

[1] -0.07 -1.33 1.41 0.22 -0.32 0.09 0.60 -0.73 0.88 -0.90 -0.88 2.12
[13] -0.37 0.34 -1.24 0.77 -0.03 1.06 0.02 -2.08 1.38 -0.05 -0.29 -0.96
[25] -0.13 -0.71 -0.79 1.54 -0.80 0.39 1.74 -1.15 -0.01 -0.65 -0.22 0.32
[37] -1.14 -0.23 -2.03 0.19 0.29 0.18 0.22 0.44 0.32 0.10 0.12 0.14
[49] -0.98 -0.91 0.42 0.38 0.18 0.48 -1.69 -0.29 -2.06 -0.98 -0.81 -0.50
[61] -0.98 1.77 -1.14 1.44 -0.54 2.93 1.20 0.03 -0.76 1.41 0.45 1.02
[73] -0.30 0.50 1.23 -0.16 -0.30 0.24 -0.62 -1.29 -0.11 -0.56 0.06 -1.62
[85] -0.04 -0.92 -0.84 -0.74 1.20 0.44 -0.78 -0.76 -0.18 -0.90 0.04 -1.43
[97] -1.00 -0.99 2.29 0.53 1.94 0.23 -0.69 1.25 -2.42 0.63 1.05 0.04
[109] 0.39 0.69 -0.46 1.11 0.22 0.60 -0.12 0.41 -0.15 -0.77 0.38 1.80
[121] 0.24 -1.14 -0.30 -2.40 -0.05 -1.28 1.90 0.04 1.66 1.04 1.22 -1.25
[133] 0.78 -1.54 0.33 0.12 -0.11 -0.91 0.57 -1.49 1.06 1.41 0.43 1.28
[145] -0.80 -0.83 0.85 1.39 0.78 0.32 0.18 -0.05 -1.05 0.18 -1.13 -0.46
[157] 0.94 -0.24 0.75 -1.26 0.43 0.31 0.14 1.21 -0.35 -0.30 -0.76 -0.32
[169] 0.18 -1.13 0.58 -0.67 -0.07 -0.33 -0.51 1.90 0.52 -0.59 -0.37 -0.48
[181] 0.42 -1.51 0.54 1.26 -0.42 -0.53 -1.04 -0.51 -0.89 -0.19 1.31 -0.08
[193] -0.81 1.55 1.12 -0.02 -2.22 0.46 0.70 -1.08

Nizamuddin Siddiqui

Updated on: 02-Nov-2021

74 Views

Kickstart Your Career

Get certified by completing the course

Get Started