Impor Data

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

Sebaran Usia Mahasiswa

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

Hobi Mahasiswa

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

Sebaran Domisili Mahasiswa

domisili<-as.factor(Tugas1$Domisili)
plot(domisili, main="Domisili Mahasiswa Peserta MK STA1262", 
     xlab = "Domisili", 
     ylab = "Frekuensi", 
     col = c("#ffe066","#9fbfdf"))

Kebiasaan Sarapan

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

### Boxplot Berat Badan dan Kebiasaan Sarapan Mahasiswa

boxplot((Tugas1$Berat.Badan~Tugas1$Terbiasa.untuk.sarapan.), 
        xlab="Terbiasa untuk sarapan?", 
        ylab="Berat badan (kg)",
        main="Hubungan Berat Badan dan Kebiasaan Sarapan Mahasiswa Peserta MK STA1262",
        cex.main=1,
        cex.lab=0.8,
        col="pink")

Durasi Belajar Mahasiswa dalam Sehari

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

Durasi Tidur Mahasiswa dalam Sehari

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

Durasi Istirahat Mahasiswa dalam Sehari

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