Tugas Praktikum 1

DataPrak1 <-read.csv("D:\\semester 4\\Praktikum Visdat\\Data Tugas 1 - Praktikum Visualisasi Data - sheet1.csv")
head(DataPrak1)

##   Umur      Hobi   Domisili Sarapan Berat.Badan Metode.Kuliah Waktu.Belajar
## 1   19  Olahraga Pulau Jawa      Ya          83        Luring             1
## 2   19     Musik Pulau Jawa      Ya          75        Daring             2
## 3   19     Musik Pulau Jawa      Ya          49        Luring             6
## 4   20   Ngoding Pulau Jawa      Ya          77        Daring            18
## 5   19     Musik Pulau Jawa      Ya          54        Luring             3
## 6   19 Traveling Pulau Jawa   Tidak          65        Luring             8
##   Waktu.Tidur Waktu.Istirahat Penguasaan.R
## 1           8               2     Beginner
## 2           6               7     Beginner
## 3           7               7     Beginner
## 4           5               2     Beginner
## 5           4               4     Beginner
## 6           9               4     Beginner

Umur <- as.factor(DataPrak1$Umur)
plot(Umur, col="#0099ff", main="Sebaran Usia Mahasiswa",xlab="Umur (tahun)", ylab="Frekuensi")

Domisili <- as.factor(DataPrak1$Domisili)
plot(Domisili, col="#0099ff", main="Asal Mahasiswa",xlab="Pulau", ylab="Frekuensi")

hitung <- table(DataPrak1$Metode.Kuliah)
hitung <- table(DataPrak1$Metode.Kuliah)
Precentage <- round(hitung*100/46,2)
pie(hitung,
    labels = paste0(Precentage, "%"),
    main = "Metode Kuliah Yang Diinginkan Mahasiswa",
    col = c("#3366ff","#cc66ff"),
    border = "black",
    density = 80,
    angle =50
)
legend("topleft", legend = c("Daring", "Luring"),
        fill =  c("#3366ff","#cc66ff"))

hitung2 <- table(DataPrak1$Hobi)
hitung2 <- table(DataPrak1$Hobi)
Precentage2 <- round(hitung2*100/46,2)
pie(hitung2,
    labels = paste0(Precentage2, "%"),
    main = "Hobi Mahasiswa",
    col = c("#3366ff","#cc66ff", "#ff3300", "#336600", "#ff5050"),
    border = "black",
    density = 80,
    angle =50
)
legend("topleft", legend = c("Bermain Games", "Musik", "Ngoding", "Olahraga", "Traveling"),
        fill =  c("#3366ff","#cc66ff", "#ff3300", "#336600", "#ff5050"))

hist(DataPrak1$Waktu.Istirahat, 
     main="Waktu yang Dibutuhkan untuk Istirahat dalam Sehari", 
     xlab = "Lama istirahat (jam)",
     ylab = "Frekuensi",
     freq = T, 
     col="#ff3333")

boxplot((DataPrak1$Berat.Badan~DataPrak1$Sarapan), 
        xlab="Terbiasa untuk sarapan?", 
        ylab="Berat badan",
        main="Hubungan Berat Badan dan Kebiasaan Sarapan Mahasiswa")

plot((DataPrak1$Waktu.Belajar~DataPrak1$Waktu.Istirahat), 
        xlab="Waktu Belajar", 
        ylab="Waktu Istirahat",
        main="Hubungan Antara Waktu Belajar dan Waktu Istirahat",
        col = "#ff9966")