Tugas 1 Visualisasi Data

Tugas 1 Visualisasi Data

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.1.2

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.5     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.1.2

## Warning: package 'tidyr' was built under R version 4.1.2

## Warning: package 'readr' was built under R version 4.1.2

## Warning: package 'purrr' was built under R version 4.1.2

## Warning: package 'stringr' was built under R version 4.1.2

## Warning: package 'forcats' was built under R version 4.1.2

## -- 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.1.2

Data_Tugas1 <- read_excel("D:/Materi Perkuliahan Reza/MATERI PERKULIAHAN SEMESTER 4/Visualisasi Data (STA1262)/Tugas/Data_Tugas 1.xlsx")

colnames(Data_Tugas1)[4] <- "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 Sarapan `Berat Badan` `Preferensi Kul~ `Durasi Belajar`
##    <dbl> <chr>  <chr>    <chr>           <dbl> <chr>                       <dbl>
##  1    19 Olahr~ Pulau J~ Ya                 83 Luring                          1
##  2    19 Musik  Pulau J~ Ya                 75 Daring                          2
##  3    19 Musik  Pulau J~ Ya                 49 Luring                          6
##  4    20 Ngodi~ Pulau J~ Ya                 77 Daring                         18
##  5    19 Musik  Pulau J~ Ya                 54 Luring                          3
##  6    19 Trave~ Pulau J~ Tidak              65 Luring                          8
##  7    20 Olahr~ Pulau J~ Ya                 54 Daring                          6
##  8    19 Berma~ Pulau J~ Ya                 75 Daring                          6
##  9    19 Musik  Pulau J~ Ya                 55 Luring                          3
## 10    20 Berma~ Pulau S~ Ya                 68 Daring                          6
## # ... with 36 more rows, and 3 more variables: Durasi Tidur <dbl>,
## #   Durasi Istirahat <dbl>, Penguasaan R <chr>

#Penjelasan GGPLOT

library(ggplot2)

ggplot(Data_Tugas1, aes(x=Hobi,fill= Hobi))+
  geom_bar( width=1) +
  labs(title="Frekuensi Hobi Mahasiswa Statistika 57") +
  scale_fill_manual(values=c("#0066ff", "#1aff1a", "#ac00e6", "#e6e600", "#ff6600"))

Data_Tugas1$`Berat Badan` <- as.character(Data_Tugas1$`Berat Badan`)
Data_Tugas1$`Berat Badan`

##  [1] "83"  "75"  "49"  "77"  "54"  "65"  "54"  "75"  "55"  "68"  "47"  "63" 
## [13] "60"  "47"  "90"  "43"  "90"  "65"  "57"  "58"  "52"  "58"  "70"  "44" 
## [25] "70"  "59"  "45"  "42"  "57"  "85"  "60"  "60"  "55"  "79"  "52"  "53" 
## [37] "60"  "125" "55"  "62"  "58"  "48"  "41"  "52"  "58"  "57"

ggplot(Data_Tugas1,aes(x='Berat Badan',fill='Berat Badan'))+
  geom_bar(width = 1) +
  labs(title="Frekuensi Berat Badan Mahasiswa Statistika 57")+
  scale_fill_manual(values=c("#ff00bf"))

ggplot(Data_Tugas1, aes(x=`Preferensi Kuliah`,fill= `Preferensi Kuliah`))+
  geom_bar( width=1) +
  labs(title="Frekuensi Preferensi Kuliah Mahasiswa Statistika 57") +
  scale_fill_manual(values=c( "#ff8c00","#7fff00"))

ggplot(Data_Tugas1,aes(x=Domisili,fill=Domisili))+
  geom_bar(width = 1) +
  labs(title="Asal Daerah Mahasiswa Statistika 57")+
  scale_fill_manual(values=c("#d2691e", "#00008b"))

ggplot(Data_Tugas1,aes(x=Sarapan,fill=Sarapan))+
  geom_bar(width = 0.7) +
  labs(title="Kebiasaan Sarapan Mahasiswa Statistika 57")+
  scale_fill_manual(values=c("#808000", "#afeeee"))

dens <- density(Data_Tugas1$`Durasi Belajar`)
# histogram
hist(Data_Tugas1$`Durasi Belajar`, freq=FALSE, col="#4169e1")
# tambahkan density plot
polygon(dens, border="red")

ggplot(Data_Tugas1, aes(x=`Durasi Tidur`, y=`Durasi Istirahat`)) + 
  geom_point()+
  geom_smooth(method=lm, se=FALSE) +
  labs(title="Scatter Plot Durasi Tidur VS Durasi Istirahat")

## `geom_smooth()` using formula 'y ~ x'

ggplot(Data_Tugas1, aes(x=`Berat Badan`, y=`Durasi Istirahat`)) + 
  geom_point()+
  geom_smooth(method=lm, se=FALSE) +
  labs(title="Scatter Plot Berat Badan VS Durasi Istirahat")

## `geom_smooth()` using formula 'y ~ x'

ggplot(Data_Tugas1, aes(x=`Penguasaan R`,fill= `Penguasaan R`))+
  geom_bar( width=0.7) +
  labs(title="Frekuensi Tingkat Penguasaan R Mahasiswa") +
  scale_fill_manual(values=c( "#0066ff", "#e6e600"))