library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.0.5
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.6 v dplyr 1.0.7
## v tidyr 1.1.4 v stringr 1.4.0
## v readr 2.1.0 v forcats 0.5.1
## Warning: package 'ggplot2' was built under R version 4.0.5
## Warning: package 'tibble' was built under R version 4.0.5
## Warning: package 'tidyr' was built under R version 4.0.5
## Warning: package 'readr' was built under R version 4.0.5
## Warning: package 'purrr' was built under R version 4.0.5
## Warning: package 'dplyr' was built under R version 4.0.5
## Warning: package 'stringr' was built under R version 4.0.5
## Warning: package 'forcats' was built under R version 4.0.5
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(readxl)
## Warning: package 'readxl' was built under R version 4.0.5
Data_Tugas1 <- read_excel("C:/Prak Visualisasi Data/Data Tugas1.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
## # A tibble: 46 x 10
## Umur Hobi Domisili `Terbiasa untuk~ `Berat Badan` `Preferensi Kul~
## <dbl> <chr> <chr> <chr> <dbl> <chr>
## 1 19 Olahraga Pulau Ja~ Ya 83 Luring
## 2 19 Musik Pulau Ja~ Ya 75 Daring
## 3 19 Musik Pulau Ja~ Ya 49 Luring
## 4 20 Ngoding Pulau Ja~ Ya 77 Daring
## 5 19 Musik Pulau Ja~ Ya 54 Luring
## 6 19 Traveling Pulau Ja~ Tidak 65 Luring
## 7 20 Olahraga Pulau Ja~ Ya 54 Daring
## 8 19 Bermain Games Pulau Ja~ Ya 75 Daring
## 9 19 Musik Pulau Ja~ Ya 55 Luring
## 10 20 Bermain Games Pulau Su~ Ya 68 Daring
## # ... with 36 more rows, and 4 more variables: Durasi Belajar <dbl>,
## # Durasi Tidur <dbl>, Durasi Istirahat <dbl>, Penguasaan R <chr>
#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")
