Pengantar Data Science

Tugas 1

Email             : sausan.ramadhani@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/sausanramadhani/
Jurusan          : Statistika
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

1 IMPORT DATA

library(DT)
omzet_jun21 = read.csv("C:\\Users\\Public\\omzetjuni.csv")
datatable(omzet_jun21)

2 CREATE AND ORGANIZE

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

2.1 FILTER

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

filsat <- filter(omzet_jun21, satuan == "Ikat")    # filter omzet juni 2021 berdasarkan satuan
datatable(filsat)

2.2 SELECT

selomjun <- select(omzet_jun21, jenis_komoditi, satuan, omzet_.rp.)
datatable(selomjun)

2.3 ARRANGE

aromjun <- arrange(selomjun, by = desc(omzet_.rp.))
datatable(aromjun)

2.4 SLICE

sliomjun <- slice(aromjun, 1:10)
datatable(sliomjun)

3 VISUALIZE DATA

Visualize data with a ggplot bar plot.

library(ggplot2)

ggplot(sliomjun, aes(x = omzet_.rp., y = jenis_komoditi)) +
  geom_bar(stat = "identity", fill = rainbow(10), color = "black") +
  theme_minimal()