Membuat Nama Variabel (Assign Variable) dengan Sjlabelled

Untuk mempermudah dalam mengkodekan data, kadang kita mesti melabelkan untuk setiap unit data dalam R atau bahasa umumnya assgning variable.  Dengan menggunakan package Sjlabelled ternyata bisa mudah dilakukan. Beginilah tahapan sederhana yang saya buat untuk menamai nama variabel dan data dalam satu variabel.

Assigning nama variabel :

• Install dan aktifkan package Sjlabelled

>library("sjlabelled", lib.loc="~/R/win-library/3.5")

•  Import Data, saya menggunkan data contoh di bawah ini

>data<-read.csv("labassigment1.csv")
> data
id gender age polorient class
1 1 1 66 3 4
2 2 2 72 3 5
3 3 2 59 1 4
4 4 2 20 1 3
5 5 2 68 3 5
6 6 1 76 3 4
7 7 1 61 1 5
8 8 1 90 3 4
9 9 2 64 1 3
10 10 2 39 1 5
11 11 1 57 3 4
12 12 1 47 1 1
13 13 2 56 1 4
14 14 2 51 1 4
15 15 1 34 1 2
16 16 1 18 2 4
17 17 2 18 1 2
18 18 2 30 1 5
19 19 2 65 3 4
20 20 1 35 3 4
21 21 2 44 3 6
22 22 2 40 3 4
23 23 1 57 1 5
24 24 1 40 1 3
25 25 2 59 1 4
26 26 2 82 3 4
27 27 2 44 4 2
28 28 2 30 1 4
29 29 1 77 1 2
30 30 2 60 3 3

• Namai variabel satu per-satu dengan syntax berikut

>data$id<-set_label(data$id, label="identification number")
> data$gender<-set_label(data$gender, label="gender")
> data$age<-set_label(data$age, label="age")
> data$polorient<-set_label(data$polorient, label="political orientation")
> data$class<-set_label(data$class, label="social class")

Sebagai contoh data akan berbentuk seperti ini ketika dipanggil

data$gender
[1] 1 2 2 2 2 1 1 1 2 2 1 1 2 2 1 1 2 2 2 1 2 2 1 1 2 2 2 2 1 2
attr(,"label")
[1] "gender"

Atau, bisa juga syntax dibawah ini untuk memastikan bahwa variabel telah di-assign dengan benar.

> get_label(data$id)
[1] "identification number"
> get_label(data$gender)
[1] "gender"
> get_label(data$polorient)
[1] "political orientation"
> get_label(data$class)
[1] "social class"

Assigning beberapa data dalam satu variabel :

• Assign dengan syntax dibawah ini :

> data$gender<-set_labels(data$gender,labels = c("male"=0,"female"=1))
> data$polorient<-set_labels(data$polorient,labels = c("left"=1,"center"=2,"right"=3,"far right"=4))
> data$class<-set_labels(data$class,labels = c("lower"=1,"working"=2,"lower middle"=3,"middle"=4,"upper middle"=5,"upper"=6))

• get_labels bila mau memastikan data telah di-assign dengan benar

get_labels(data$gender)
[1] "male" "female"
> get_labels(data$polorient)
[1] "left" "center" "right" "far right"
> get_labels(data$class)
[1] "lower" "working" "lower middle" "middle"
[5] "upper middle" "upper"