Input Data

DataPrak1 <- read.csv("C:/Users/ACER/Downloads/Data Tugas 1 - Praktikum Visualisasi Data")
View(DataPrak1)

Sebaran Usia Mahasiswa

usia<-as.factor(DataPrak1$ï..Umur)
plot(usia, main="Usia Mahasiswa Peserta MK STA1262", 
     xlab="Umur (tahun)", ylab="Frekuensi",
     col="pink")

Hobi Mahasiswa

hobi<-as.factor(DataPrak1$Hobi)
plot(hobi, main="Hobi Mahasiswa Peserta MK STA 1262", 
     xlab="Hobi", ylab="Frekuensi",
     col="lightcyan")

Sebaran Domisili Mahasiswa

domisili<-as.factor(DataPrak1$Domisili)
plot(domisili, main="Domisili Mahasiswa Peserta MK STA1262", 
     xlab = "Domisili", ylab = "Frekuensi", 
     col = c("Yellow","Orange"))

Kebiasaan Sarapan

#frekuensi sarapan mahasiswa
Sarapan<-as.factor(DataPrak1$Terbiasa.untuk.sarapan.)
    plot((Sarapan), main = "Kebiasaan Sarapan Mahasiswa Peserta MK 1262", 
    ylab = "Frekuensi", 
    col =  c("Yellow","Orange"))

### Waktu Tidur Mahasiswa Dalam Sehari

hist(DataPrak1$Berapa.jam.waktu.yang.dibutuhkan.untuk.tidur.dalam.satu.hari...Dalam.angka.saja..contoh..6., 
     main="Waktu yang Dibutuhkan untuk Tidur dalam Sehari", 
     xlab = "Lama tidur (jam)",
     ylab = "Frekuensi",
     freq = T, 
     col="turquoise")

Waktu Belajar Mahasiswa Dalam Sehari

hist(DataPrak1$Berapa.jam.waktu.yang.dibutuhkan.untuk.belajar.dalam.satu.hari...Dalam.angka.saja..contoh..6., 
     main="Waktu yang Dibutuhkan untuk Belajar dalam Sehari", 
     xlab = "Lama belajar (jam)",
     ylab = "Frekuensi",
     freq = T, 
     col="orange")

Waktu Istirahat Mahasiswa Dalam Sehari

hist(DataPrak1$Berapa.jam.waktu.yang.dibutuhkan.untuk.istirahat.dalam.satu.hari...Dalam.angka.saja..contoh..6., 
     main="Waktu yang Dibutuhkan untuk Istirahat dalam Sehari", 
     xlab = "Lama istirahat (jam)",
     ylab = "Frekuensi",
     freq = T, 
     col="yellow")