Jak używać cbind w r (z przykładami)

Funkcja cbind w języku R, skrót od „kolumna-bind” , może być używana do łączenia wektorów, macierzy i ramek danych według kolumn.

Poniższe przykłady pokazują, jak w praktyce wykorzystać tę funkcję.

Przykład 1: Łączenie wektorów w macierzy

Poniższy kod pokazuje, jak użyć cbind do powiązania dwóch wektorów kolumnowych w pojedynczą macierz:

 #create two vectors
a <- c(1, 3, 3, 4, 5)
b <- c(7, 7, 8, 3, 2)

#cbind the two vectors into a matrix
new_matrix <- cbind(a, b)

#view matrix
new_matrix

     ab
[1,] 1 7
[2,] 3 7
[3,] 3 8
[4,] 4 3
[5,] 5 2

#view class of new_matrix
class(new_matrix)

[1] "matrix" "array" 

Przykład 2: Połącz wektor z ramką danych

Poniższy kod pokazuje, jak użyć cbind do powiązania wektora z istniejącą ramką danych:

 #create data frame
df <- data. frame (a=c(1, 3, 3, 4, 5),
                 b=c(7, 7, 8, 3, 2),
                 c=c(3, 3, 6, 6, 8))

#definevector
d <- c(11, 14, 16, 17, 22)

#cbind vector to data frame
df_new <- cbind(df, d)

#view data frame
df_new

  abcd
1 1 7 3 11
2 3 7 3 14
3 3 8 6 16
4 4 3 6 17
5 5 2 8 22

Zauważ, że R zgłosi błąd, jeśli długość wektora nie będzie taka sama jak długość kolumn w istniejącej ramce danych.

Przykład 3: Połącz wiele wektorów z ramką danych

Poniższy kod pokazuje, jak używać cbind do powiązania wielu wektorów kolumnowych z istniejącą ramką danych:

 #create data frame
df <- data. frame (a=c(1, 3, 3, 4, 5),
                 b=c(7, 7, 8, 3, 2),
                 c=c(3, 3, 6, 6, 8))

#definevectors
d <- c(11, 14, 16, 17, 22)

e <- c(34, 35, 36, 36, 40) 

#cbind vectors to data frame
df_new <- cbind(df, d, e)

#view data frame
df_new

  a B C D E
1 1 7 3 11 34
2 3 7 3 14 35
3 3 8 6 16 36
4 4 3 6 17 36
5 5 2 8 22 40

Przykład 4: Połącz dwie ramki danych

Poniższy kod pokazuje, jak użyć cbind do powiązania dwóch ramek danych w jedną:

 #create two data frames
df1 <- data. frame (a=c(1, 3, 3, 4, 5),
                  b=c(7, 7, 8, 3, 2),
                  c=c(3, 3, 6, 6, 8))

df2 <- data. frame (d=c(11, 14, 16, 17, 22),
                  e=c(34, 35, 36, 36, 40))

#cbind two data frames into one data frame
df_new <- cbind(df1, df2)

#view data frame
df_new

  a B C D E
1 1 7 3 11 34
2 3 7 3 14 35
3 3 8 6 16 36
4 4 3 6 17 36
5 5 2 8 22 40

Bonus: jeśli chcesz powiązać wektory, macierze lub ramki danych wierszami, możesz zamiast tego użyć funkcji rbind.