Mengurutkan Data

Gunakan perintah order

umur <- c(17, 19, 21, 37, 18, 19, 47, 18, 19)
skor <- c(12, 10, 11, 15, 16, 14, 25, 21, 29)
data1 <- data.frame (umur,skor)
data1
##   umur skor
## 1   17   12
## 2   19   10
## 3   21   11
## 4   37   15
## 5   18   16
## 6   19   14
## 7   47   25
## 8   18   21
## 9   19   29

Apabila ingin mengurutkan berdasarkan umur:

order(data1$umur)
## [1] 1 5 8 2 6 9 3 4 7
# Selanjutnya mengambil nilai sesuai dengan hasil data yang telah diurutkan
# Ada tanda ,(koma) di akhir yang berarti mengurutkan seluruh kolom.
# Apabila hanya ingin mengurutkan beberapa kolom saja tinggal menuliskan
# berapa jumlah kolom yang akan disort setelah tanda koma.

data2<-data1[order(data1$umur),]
data2
##   umur skor
## 1   17   12
## 5   18   16
## 8   18   21
## 2   19   10
## 6   19   14
## 9   19   29
## 3   21   11
## 4   37   15
## 7   47   25

Menghapus Data yang sama

Gunakan perintah ! duplicate

Dengan menggunakan data2 kita bisa melanjutkan proses penghapusan data yang sama, caranya:

datasama <- data.frame (umur,skor)
datasama[!duplicated(datasama[,c("umur")]),]
##   umur skor
## 1   17   12
## 2   19   10
## 3   21   11
## 4   37   15
## 5   18   16
## 7   47   25
# Perhatikan: Data yang tersimpan adalah data umur yang pertama!

Mencari dan Mengganti Data

Gunakan perintah Find and Replace Apabila ingin menemukan kemudian mengganti data dengan yang kita inginkan, caranya sebagai berikut:

# install library packages yang bernama: "car" 
# install.packages("car")

# Aktifkan library car
library(car)

# Tuliskan data seperti di bawah ini:
umur <- c(17, 19, 21, 37, 18, 19, 47, 18, 19)
skor <- c("-", 10, "-", 15, "-", 14, "x", 21, "x")
temuganti <- data.frame (umur,skor)
temuganti
##   umur skor
## 1   17    -
## 2   19   10
## 3   21    -
## 4   37   15
## 5   18    -
## 6   19   14
## 7   47    x
## 8   18   21
## 9   19    x

Selanjutnya bila ingin mengganti data pada kolom skor yang berisi “-” menjadi angka 0, caranya sebagai berikut:

gantiskor <- recode(temuganti$skor,'"-" = 0; "x"=0')
gantiskor
## [1] 0  10 0  15 0  14 0  21 0 
## Levels: 0 10 14 15 21
# Membuat data frame dengan skor pengganti (bernilai 0)

temuganti2<-data.frame(umur,gantiskor)
temuganti2
##   umur gantiskor
## 1   17         0
## 2   19        10
## 3   21         0
## 4   37        15
## 5   18         0
## 6   19        14
## 7   47         0
## 8   18        21
## 9   19         0

Membersihkan data non Numerik

Remove dan rm dapat digunakan untuk menghapus obyek

Gunakan perintah Function(…,na.rm)

x <- c(10,11,NA,13,14)
mean(x)
## [1] NA
mean_new <- function(...,na.rm=TRUE) mean(...,na.rm=TRUE)
mean_new(x)
## [1] 12
mean_new(x)
## [1] 12

atau gunakan instruksi singkat sepertidi bawah ini:

mean(x,na.rm=TRUE)
## [1] 12

Merubah Data Numerik menjadi Text (character)

x <- c(12,44,52,66)
is(x)
## [1] "numeric"         "vector"          "index"           "replValue"      
## [5] "numLike"         "number"          "atomicVector"    "numeric or NULL"
xc <- as.character(x)
xc
## [1] "12" "44" "52" "66"

Merubah Data Text (character) menjadi Numerik

xc
## [1] "12" "44" "52" "66"
is(xc)
## [1] "character"           "vector"              "data.frameRowLabels"
## [4] "SuperClassMethod"    "index"               "atomicVector"       
## [7] "character or NULL"
xn<-as.numeric(xc)
xn
## [1] 12 44 52 66

aswin.januarsjaf@gmail.com