Pengatar Data Sains

~ Tugas 1 ~


Kontak : \(\downarrow\)
Email
Instagram https://www.instagram.com/diasary_nm/
RPubs https://rpubs.com/diyasarya/

Import Data

#Import Data Jam Tidur Mamalia

library(dplyr)
library(downloader)

Genomicsclass <- "https://raw.githubusercontent.com/genomicsclass/dagdata/master/inst/extdata/msleep_ggplot2.csv"

Data1 <- "msleep_ggplot2.csv"
if (!file.exists(Data1)) download(Genomicsclass, Data1)
Datamsleep <- read.csv(Data1)

Datamsleep

Create and organize subsets of tabular data using filter, select, arrange, and slice

Filter

#Create and organize subsets of tabular data using filter, select, arrange, and slice

library(dplyr)

#Filter Datamsleep berdasarkan Jenis Hewan Herbivora

Filter_herbi <- filter(Datamsleep, vore == "herbi")
Filter_herbi

Select

#Select Nama Hewan, Jenis Makanan, dan Total Jam Tidur

Select_name_vore_st <- select(Datamsleep, name, vore, sleep_total)
Select_name_vore_st

Arrange

#Arrange Data Select_name_vore_st dengan Mengurutkan Total Jam Tidur dari Terlama dan Tercepat

Arrange_st <- arrange(Select_name_vore_st, by = desc(sleep_total))
Arrange_st

Slice

#Slice Data Arrange_st dari baris 1 sampai 10

Slice_st <- slice(Arrange_st, 1:10)
Slice_st

Visualize data with a ggplot bar plot

#Visualisasi Bar Plot

library(ggplot2)

ggplot(Slice_st, aes(x = sleep_total, y = name)) +
  geom_bar(stat = "identity")

#Menambahkan Nama Label Bar Plot

ggplot(Slice_st, aes(x = sleep_total, y = name)) +
  geom_bar(stat = "identity") +
  xlab("Jumlah Jam Tidur") + 
  ylab("Nama Hewan")

#Mengurutkan Name berdasarkan Sleep_total

ggplot(Slice_st, aes(x = sleep_total,
                     y = reorder(name, sleep_total))) +
  geom_bar(stat = "identity") +
  xlab("Jumlah Jam Tidur") + 
  ylab("Nama Hewan")

#Memberikan Warna Bar Plot dan Keterangan 

ggplot(Slice_st, aes(x = sleep_total,
                     y = reorder(name, sleep_total))) +
  geom_bar(stat = "identity", fill="steelblue") +
  geom_text(aes(label = sleep_total), vjust=0, size=3.5) +
  xlab("Jumlah Jam Tidur") + 
  ylab("Nama Hewan")