Cara menggunakan operator %in% di r (dengan contoh)

Operator %in% di R memungkinkan Anda menentukan apakah suatu elemen termasuk dalam vektor atau bingkai data atau tidak.

Tutorial ini memberikan tiga contoh penggunaan fitur ini dalam skenario berbeda.

Contoh 1: Menggunakan %in% dengan vektor

Kita dapat menggunakan operator %in% untuk menentukan berapa banyak elemen suatu vektor yang dimiliki oleh vektor lain:

 #define two vectors of data
data1 <- c(3, 5, 7, 7, 14, 19, 22, 25)

data2 <- c(1, 2, 3, 4, 5)

#produce new vector that contains elements of data1 that are in data2
data1[data1 %in% data2]

[1] 3 5

Kita dapat melihat bahwa nilai 3 dan 5 adalah satu-satunya elemen vektor berlabel data2 yang ada di vektor berlabel data1 .

Contoh 2: Gunakan %in% untuk memfilter bingkai data

Kita juga bisa menggunakan operator %in% untuk memfilter baris dalam bingkai data yang berisi nilai tertentu:

 #define data frame
df <- data.frame(team=c('A', 'A', 'B', 'B', 'B', 'C'),
                 points=c(67, 72, 77, 89, 84, 97),
                 assists=c(14, 16, 12, 22, 25, 20))

#view data frame
df

  team points assists
1 A 67 14
2 A 72 16
3 B 77 12
4 B 89 22
5 B 84 25
6 C 97 20

#produce new data frame that only contains rows where team is 'B'
df_new <- df[df$team %in% c(' B '), ]
df_new

  team points assists
3 B 77 12
4 B 89 22
5 B 84 25

#produce new data frame that only contains rows where team is 'B' or 'C'
df_new2 <- df[df$team %in% c(' B ', ' C '), ]
df_new2

  team points assists
3 B 77 12
4 B 89 22
5 B 84 25
6 C 97 20

Contoh 3: Gunakan %in% untuk membuat kolom bingkai data

Kita juga dapat menggunakan operator %in% untuk membuat kolom bingkai data baru.

Misalnya, kode berikut menunjukkan cara membuat kolom baru bernama divisi yang menempatkan tim “A” dan “C” sebagai “Timur” dan tim “B” sebagai “Barat”:

 library (dplyr)

#define data frame
df <- data.frame(team=c('A', 'A', 'B', 'B', 'B', 'C'),
                 points=c(67, 72, 77, 89, 84, 97),
                 assists=c(14, 16, 12, 22, 25, 20))

#view data frame
df

  team points assists
1 A 67 14
2 A 72 16
3 B 77 12
4 B 89 22
5 B 84 25
6 C 97 20

#create new column called division
df$division = if_else (df$team %in% c(' A ', ' C '), ' East ', ' West ')
df

  team points assists division
1 A 67 14 East
2 A 72 16 East
3 B 77 12 West
4 B 89 22 West
5 B 84 25 West
6 C 97 20 East

Sumber daya tambahan

Cara menggabungkan dua kolom menjadi satu di R
Bagaimana cara menambahkan baris ke bingkai data di R
Bagaimana membandingkan dua kolom di R