library(readxl)
Komstat_Redha <- read_excel("~/Komstat Redha.xlsx")
View(Komstat_Redha)
#Menambah variabel Rumah Rusak
Komstat_Redha$Rumah_Rusak<- Komstat_Redha$`Rumah Rusak Berat`+ Komstat_Redha$`Rumah Rusak Sedang` +Komstat_Redha$`Rumah Rusak Ringan`
Komstat_Redha$Rumah_Rusak
## [1] 0 0 20 57 11 20 5 2 69 0 0 2 4 0 0 1 19 7 1 0 16 0 1 0 28
## [26] 28 1 5 3 16 1 1 0 87 25 0
#Menghapus Kolom (Kode_Kab.kot),(Kode Bencana),(Lon),(Lat),(Menderita),(Mengungsi),(Rumah Rusak Berat),(Rumah Rusak Sedang),(Rumah Rusak Ringan),(Rumah Rusak Ringan),(Faskes Rusak),(Rumah Ibadah Rusak)
Komstat_Redha$`Kode_Kab/Kot`<- NULL
Komstat_Redha$Kode_bencana <- NULL
Komstat_Redha$Lon <- NULL
Komstat_Redha$Lat <- NULL
Komstat_Redha$Menderita <- NULL
Komstat_Redha$Mengungsi <- NULL
Komstat_Redha$`Rumah Rusak Berat`<- NULL
Komstat_Redha$`Rumah Rusak Sedang`<- NULL
Komstat_Redha$`Rumah Rusak Ringan`<- NULL
Komstat_Redha$`Faskes Rusak` <- NULL
Komstat_Redha$`Rumah Ibadah Rusak` <- NULL
#Soal Ke-4
No <- c(1,2,3,4,5,6,7,8,9,10)
No
## [1] 1 2 3 4 5 6 7 8 9 10
Nama <- c("Josephine","Peter","Adam","Lusiana","Anthoni","Gabriela","Mario","Suzan","Laura","Evelyn")
Nama
## [1] "Josephine" "Peter" "Adam" "Lusiana" "Anthoni" "Gabriela"
## [7] "Mario" "Suzan" "Laura" "Evelyn"
Usia <- c(17,20,19,22,30,21,20,21,18,19)
Usia
## [1] 17 20 19 22 30 21 20 21 18 19
Tinggi_cm <- c(167,154,183,159,173,160,169,161,141,153)
Tinggi_cm
## [1] 167 154 183 159 173 160 169 161 141 153
Berat_Kg <- c(57,62,67,46,57,78,55,44,50,43)
Berat_Kg
## [1] 57 62 67 46 57 78 55 44 50 43
Tinggi_m <- c(1.67,1.54,1.83,1.59,1.73,1.60,1.69,1.61,1.41,1.53)
Tinggi_m
## [1] 1.67 1.54 1.83 1.59 1.73 1.60 1.69 1.61 1.41 1.53
#Data Frame
Soal4_Tugas3 <- data.frame(No,Nama,Usia,Tinggi_cm,Berat_Kg,Tinggi_m)
Soal4_Tugas3
## No Nama Usia Tinggi_cm Berat_Kg Tinggi_m
## 1 1 Josephine 17 167 57 1.67
## 2 2 Peter 20 154 62 1.54
## 3 3 Adam 19 183 67 1.83
## 4 4 Lusiana 22 159 46 1.59
## 5 5 Anthoni 30 173 57 1.73
## 6 6 Gabriela 21 160 78 1.60
## 7 7 Mario 20 169 55 1.69
## 8 8 Suzan 21 161 44 1.61
## 9 9 Laura 18 141 50 1.41
## 10 10 Evelyn 19 153 43 1.53
#Mengubah Tinggi Badan Dalam Meter dan menambahkan variabel
Soal4_Tugas3$Tinggi_m <- Soal4_Tugas3$Tinggi_cm/100
Soal4_Tugas3$Tinggi_m
## [1] 1.67 1.54 1.83 1.59 1.73 1.60 1.69 1.61 1.41 1.53
#Mencari nilai BMI dan Menambahkan variabelnya
Soal4_Tugas3$Nilai_BMI <- Soal4_Tugas3$Berat_Kg/(Soal4_Tugas3$Tinggi_m)^2
Soal4_Tugas3$Nilai_BMI
## [1] 20.43817 26.14269 20.00657 18.19548 19.04507 30.46875 19.25703 16.97465
## [9] 25.14964 18.36900
#Membuat Nilai BMI
Nilai_BMI <- c(20.43817,26.14269,20.00657,18.19548,19.04507,30.46875,19.25703,16.97465,25.14964,18.36900)
Nilai_BMI
## [1] 20.43817 26.14269 20.00657 18.19548 19.04507 30.46875 19.25703 16.97465
## [9] 25.14964 18.36900
#Membuat Karakter
Soal4_Tugas3$Keterangan <- cut(Soal4_Tugas3$Nilai_BMI, breaks = c(-Inf,18.5,24.9,29.9,Inf),labels = c("Underweight/Kurus","Normal","Overweight/Kegemukan","Obesitas"))
Soal4_Tugas3$keterangan
## NULL
#Cara Lain
Soal4_Tugas3$keterangan [Soal4_Tugas3$Nilai_BMI<18.5] <- "Underweight/Kurus"
Soal4_Tugas3$keterangan
## [1] NA NA NA
## [4] "Underweight/Kurus" NA NA
## [7] NA "Underweight/Kurus" NA
## [10] "Underweight/Kurus"
Soal4_Tugas3$keterangan [Soal4_Tugas3$Nilai_BMI>18.5 & Soal4_Tugas3$Nilai_BMI <=24.9] <- "Normal"
Soal4_Tugas3$keterangan
## [1] "Normal" NA "Normal"
## [4] "Underweight/Kurus" "Normal" NA
## [7] "Normal" "Underweight/Kurus" NA
## [10] "Underweight/Kurus"
Soal4_Tugas3$keterangan [Soal4_Tugas3$Nilai_BMI >25.0 & Soal4_Tugas3$Nilai_BMI <=29.9] <- "Overweight/Kegemukan"
Soal4_Tugas3$keterangan
## [1] "Normal" "Overweight/Kegemukan" "Normal"
## [4] "Underweight/Kurus" "Normal" NA
## [7] "Normal" "Underweight/Kurus" "Overweight/Kegemukan"
## [10] "Underweight/Kurus"
Soal4_Tugas3$keterangan [Soal4_Tugas3$Nilai_BMI>=30] <- "Obesitas"
Soal4_Tugas3$keterangan
## [1] "Normal" "Overweight/Kegemukan" "Normal"
## [4] "Underweight/Kurus" "Normal" "Obesitas"
## [7] "Normal" "Underweight/Kurus" "Overweight/Kegemukan"
## [10] "Underweight/Kurus"
#Buat Variabel Keterangan
Keterangan <- c(Soal4_Tugas3$keterangan)
Keterangan
## [1] "Normal" "Overweight/Kegemukan" "Normal"
## [4] "Underweight/Kurus" "Normal" "Obesitas"
## [7] "Normal" "Underweight/Kurus" "Overweight/Kegemukan"
## [10] "Underweight/Kurus"
#Masukkan Semua Variabel ke data frame!
Soal4_Tugas3 <- data.frame(No,Nama,Usia,Tinggi_cm,Berat_Kg,Tinggi_m,Nilai_BMI,Keterangan)
Soal4_Tugas3
## No Nama Usia Tinggi_cm Berat_Kg Tinggi_m Nilai_BMI Keterangan
## 1 1 Josephine 17 167 57 1.67 20.43817 Normal
## 2 2 Peter 20 154 62 1.54 26.14269 Overweight/Kegemukan
## 3 3 Adam 19 183 67 1.83 20.00657 Normal
## 4 4 Lusiana 22 159 46 1.59 18.19548 Underweight/Kurus
## 5 5 Anthoni 30 173 57 1.73 19.04507 Normal
## 6 6 Gabriela 21 160 78 1.60 30.46875 Obesitas
## 7 7 Mario 20 169 55 1.69 19.25703 Normal
## 8 8 Suzan 21 161 44 1.61 16.97465 Underweight/Kurus
## 9 9 Laura 18 141 50 1.41 25.14964 Overweight/Kegemukan
## 10 10 Evelyn 19 153 43 1.53 18.36900 Underweight/Kurus