Tugas Praktikum 1 - Visualisasi Data

Input data

DataTugasPrak1 <-read.csv("C:/Users/hp/Documents/MY DEPARTEMEN/#4/VISDAT/Data Tugas 1 - Praktikum Visualisasi Data - sheet1.csv")
View(DataTugasPrak1)

Sebaran usia mahasiswa

Usia <- as.factor(DataTugasPrak1$Umur)
plot(Usia, main="Sebaran Usia Mahasiswa MK Visualisasi Data",
     xlab="Umur (tahun)", ylab="Frekuensi", col="#655D8A")

Hobi mahasiswa

hobi<-as.factor(DataTugasPrak1$Hobi)
plot(hobi, main=" Sebaran Hobi Mahasiswa MK Visualisasi Data", 
     xlab="Hobi", ylab="Frekuensi", col="#7897AB")

Domisili mahasiswa

Domisili <- as.factor(DataTugasPrak1$Domisili)
plot(Domisili, main="Asal Mahasiswa MK Visualisasi Data",
     xlab="Pulau", ylab="Frekuensi", col="#D885A3", )

hitung <- table(DataTugasPrak1$Metode.Kuliah)

Kebiasaan sarapan mahasiswa

#frekuensi sarapan mahasiswa
Sarapan<-as.factor(DataTugasPrak1$Terbiasa.untuk.sarapan.)
    plot((Sarapan), main="Sebaran Kebiasaan Sarapan Mahasiswa MK Visualisasi Data", 
    ylab="Frekuensi", col=c("#F3C5C5","#C1A3A3"))

Waktu istirahat mahasiswa

hist(DataTugasPrak1$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="#BAABDA")

Waktu tidur mahasiswa

hist(DataTugasPrak1$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="#D6E5FA")

Waktu belajar mahasiswa

hist(DataTugasPrak1$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="#BF9270")