{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

Input Data

{r} Data1 <- read.csv(file.choose()) View(Data1)

Sebaran Usia Mahasiswa

{r} usia<-as.factor(Data1$Umur) plot(usia, main=“Usia Mahasiswa Peserta MK STA1262”, xlab=“Umur (tahun)”, ylab=“Frekuensi”, col=“lightcyan”)

Hobi Mahasiswa

{r} hobi<-as.factor(Data1$Hobi) plot(hobi, main=“Hobi Mahasiswa Peserta MK STA 1262”, xlab=“Hobi”, ylab=“Frekuensi”, col=“pink”)

Sebaran Domisili Mahasiswa

{r} domisili<-as.factor(Data1$Domisili) plot(domisili, main=“Domisili Mahasiswa Peserta MK STA1262”, xlab = “Domisili”, ylab = “Frekuensi”, col = c(“Orange”,“Yellow”))

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

Waktu Tidur Mahasiswa Dalam Sehari

{r} hist(Data1$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

{r} hist(Data1$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=“Yellow”)

Waktu Istirahat Mahasiswa Dalam Sehari

{r} hist(Data1$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=“Orange”)