Lembaga : UIN Maulana Malik Ibrahim Malang
Jurusan : Teknik Informatika

1 . Pendahuluan

Saat melakukan manipulasi data pada R kita dapat menggunakan package dplyr. Package ini dibuat oleh Handley Wickham dan Roman Francois yang berisi kumpulan fungsi yang memudahkan manipulasi data yaitu antara lain: sample() untuk mengambil sampel secara acak dari tabel, mutate() untuk menambah kolom, select() untuk mengambil data atau variabel yang dibutuhkan, arrange() untuk mengurutkan data, filter() untuk menyaring data, groupby() untuk mengelompokkan data dan lain lain.

2 . Data Inflow Pulau Sumatera

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.3
manInflow <- read_excel(path = "inflow tahunan Sum.xlsx")
manInflow
library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.1.3
## -- 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.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1
## Warning: package 'ggplot2' was built under R version 4.1.3
## Warning: package 'tibble' was built under R version 4.1.3
## Warning: package 'tidyr' was built under R version 4.1.3
## Warning: package 'readr' was built under R version 4.1.3
## Warning: package 'purrr' was built under R version 4.1.3
## Warning: package 'dplyr' was built under R version 4.1.3
## Warning: package 'forcats' was built under R version 4.1.3
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

3 . Menghapus Beberapa Variable yang Tidak Diperlukan

## Menghapus Semua Kolom Kecuali Kolom Tahun 2012
Sum2012 <- select(manInflow, '2012')
Sum2012
## Menghapus semua Kolom Kecuali Kolom tahun 2012,2013,2014
Sum200 <- select(manInflow, `2012`,`2013`,`2014`)
Sum200

4 . Memilih Variable yang ingin Digunakan

## Memilih semua kolom kecuali kolom 2012
Sumateraex2012 <- select(manInflow, -'2012')
Sumateraex2012

Select dapat juga digunakan untuk merubah atau mengganti nama Kolom

## Mengganti Kolom 2012 Menjadi 2k12
Sumatera300 <- manInflow %>% 
  select("2k12" = `2012` , `2018` , `2019`)
Sumatera300

5 . Mengganti Kolom Tahun pada tabel

library(dplyr)
Sumatera400 <- manInflow %>% rename("2k13" = '2013')
head(Sumatera400)

6 . Mengambil Nilai yang Tidak duplikasi dari Variable

6.1 . Di Suatu Variable

Sumatera4 <- distinct(manInflow, `2015`)
Sumatera4

6.2 . Di Semua Variable

Sumatera5 <- distinct(manInflow, `2015`, .keep_all = TRUE)
Sumatera5

7 . Menyeleksi Baris Pada Tabel

## Menyeleksi Menggunakan fungsi Filter()   

Sumatera5 <- manInflow %>%
  filter(Provinsi <= 'Sumatera') %>%
    select(`2011`,`2012`)
Sumatera5
Sumatera6 <- manInflow %>%
  filter(Provinsi == 'Sumatera Barat', Provinsi == 'Sumatera Utara') %>%
    select( -`2017`)
Sumatera6
str(manInflow)
## tibble [11 x 12] (S3: tbl_df/tbl/data.frame)
##  $ Provinsi: chr [1:11] "Sumatera" "Aceh" "Sumatera Utara" "Sumatera Barat" ...
##  $ 2011    : num [1:11] 57900 2308 23238 9385 3012 ...
##  $ 2012    : num [1:11] 65911 2620 25981 11192 4447 ...
##  $ 2013    : num [1:11] 98369 36337 18120 14056 8933 ...
##  $ 2014    : num [1:11] 86024 4567 30503 14103 6358 ...
##  $ 2015    : num [1:11] 86549 4710 30254 13309 7156 ...
##  $ 2016    : num [1:11] 97764 5775 34427 14078 8211 ...
##  $ 2017    : num [1:11] 103748 5514 35617 15312 8553 ...
##  $ 2018    : num [1:11] 117495 5799 41769 15058 10730 ...
##  $ 2019    : num [1:11] 133762 7509 47112 14750 10915 ...
##  $ 2020    : num [1:11] 109345 6641 36609 10696 9148 ...
##  $ 2021    : num [1:11] 89270 3702 31840 10748 7769 ...
str(manInflow %>% group_by(Provinsi))
## grouped_df [11 x 12] (S3: grouped_df/tbl_df/tbl/data.frame)
##  $ Provinsi: chr [1:11] "Sumatera" "Aceh" "Sumatera Utara" "Sumatera Barat" ...
##  $ 2011    : num [1:11] 57900 2308 23238 9385 3012 ...
##  $ 2012    : num [1:11] 65911 2620 25981 11192 4447 ...
##  $ 2013    : num [1:11] 98369 36337 18120 14056 8933 ...
##  $ 2014    : num [1:11] 86024 4567 30503 14103 6358 ...
##  $ 2015    : num [1:11] 86549 4710 30254 13309 7156 ...
##  $ 2016    : num [1:11] 97764 5775 34427 14078 8211 ...
##  $ 2017    : num [1:11] 103748 5514 35617 15312 8553 ...
##  $ 2018    : num [1:11] 117495 5799 41769 15058 10730 ...
##  $ 2019    : num [1:11] 133762 7509 47112 14750 10915 ...
##  $ 2020    : num [1:11] 109345 6641 36609 10696 9148 ...
##  $ 2021    : num [1:11] 89270 3702 31840 10748 7769 ...
##  - attr(*, "groups")= tibble [11 x 2] (S3: tbl_df/tbl/data.frame)
##   ..$ Provinsi: chr [1:11] "Aceh" "Bengkulu" "Jambi" "Kep. Bangka Bellitung" ...
##   ..$ .rows   : list<int> [1:11] 
##   .. ..$ : int 2
##   .. ..$ : int 9
##   .. ..$ : int 7
##   .. ..$ : int 11
##   .. ..$ : int 6
##   .. ..$ : int 10
##   .. ..$ : int 5
##   .. ..$ : int 1
##   .. ..$ : int 4
##   .. ..$ : int 8
##   .. ..$ : int 3
##   .. ..@ ptype: int(0) 
##   ..- attr(*, ".drop")= logi TRUE

8 . Pengelompokan dan Pengumpulan Data

8.1 . Pengelompokan

## Menggunakan Fugnsi group_by()  
  
Sumaterag1 <- manInflow %>%
    group_by(Provinsi)
Sumaterag1

8.2 . Pengurutan

Sumaterasort <- arrange(manInflow, `2012`)
Sumaterasort

9 . Menambahkan Kolom Pada Tabel

Sumateraup1 <- manInflow %>%
    mutate(`2021` = manInflow$`2020`/2)
Sumateraup1

10 . Visualisasi Data

10.1 . Menggunakan Grafik Dot / Titik

ggplot(data = manInflow, mapping = aes(x = Provinsi, y = `2011`)) +
  geom_point()

ggplot(data = manInflow, mapping = aes(x = Provinsi, y = `2012`)) +
  geom_point()