library(readxl)

library(tidyverse) Data_Tugas1 <- read_excel("C:/Prak Visualisasi Data/Data Tugas 1 - Praktikum Visualisasi Data.xlsx") View(Data_Tugas1)

colnames(Data_Tugas1)[4] <- "Terbiasa untuk Sarapan" colnames(Data_Tugas1)[5] <- "Berat Badan" colnames(Data_Tugas1)[6] <- "Preferensi Kuliah" colnames(Data_Tugas1)[7] <- "Durasi Belajar" colnames(Data_Tugas1)[8] <- "Durasi Tidur" colnames(Data_Tugas1)[9] <- "Durasi Istirahat" colnames(Data_Tugas1)[10] <- "Penguasaan R" Data_Tugas1

par(mfrow=c(1,3))

sebaran domisili mahasiswa

Domisili<-as.factor(Data_Tugas1$Domisili) plot(Domisili, col = c("red","green"), main = "Asal Daerah Mahasiswa/i STA1262", ylab = "Frekuensi", xlab = "Asal Daerah", col.main = "black", font.main = 4)

sebaran umur mahasiswa

Umur<-as.factor(Data_Tugas1$Umur) plot(Umur, col = c("yellow","blue"), border = "black", main = "Sebaran Umur Mahasiswa/i STA1262", ylab = "Frekuensi", xlab = "Umur(Tahun)", col.main = "Black", font.main = 4)

frekuensi sarapan mahasiswa

Sarapan<-as.factor(Data_Tugas1$Terbiasa untuk sarapan?) plot((Sarapan), main = "Apakah Mahasiswa/i STA1262 Terbiasa Sarapan?", font.main = 4, ylab = "Frekuensi", col = c("#ffff33","#84a3e1"))

waktu belajar mahasiswa

hist(Data_Tugas1$Durasi Belajar, main = "Waktu Belajar Mahasiswa/i STA1262 dalam Sehari", xlab = "Lama belajar (jam)",ylab = "Frekuensi", freq = T, col="#ff66b3")

waktu istirahat mahasiswa

hist(Data_Tugas1$Durasi Istirahat, main = "Waktu Istirahat Mahasiswa/i STA1262 dalam Sehari", xlab = "Lama istirahat (jam)",ylab = "Frekuensi", freq = T, col="#999966")

waktu tidur mahasiswa

hist(Data_Tugas1$Durasi Tidur, main = "Waktu Tidur Mahasiswa/i STA1262 dalam Sehari", xlab = "Lama tidur (jam)", ylab = "Frekuensi", freq = T, col="#ff6600")

berat badan mahasiswa

boxplot(Data_Tugas1$Berat Badan, col = c("#40bf80"), main = "Sebaran Berat Badan Mahasiswa/i STA1262", ylab = "Kilogram")