Dosen Pengampu : Prof. Dr. Suhartono, M.Kom

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Prodi : Teknik Informatika

Pengertian Manipulasi

Data Manipulation Image merupakan sebuah bahasa pemrograman yang berfungsi untuk : Menambahkan data,Menghapus data, Melakukan perubahan pada database. Sehingga data tersebut bisa menjadi suatu informasi yang mudah untuk dibaca tanpa repot.
library(readxl)
datainflow <- read_excel(path = "datainflow.xlsx")
datainflow
## # A tibble: 3 x 12
##   Provinsi `2011` `2012` `2013` `2014` `2015` `2016` `2017` `2018` `2019` `2020`
##   <chr>     <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Bali      8912. 10782.  7248. 13104. 14471. 18140. 17822. 20434. 20654. 14323.
## 2 Nusa Te~  3819.  4379. 10628.  5620.  6728.  8149.  8770.  9271. 10288.  8546.
## 3 Nusa Te~  3693.  4260. 11524.  4668.  5530.  5652.  7569.  7555.  7738.  8356.
## # ... with 1 more variable: `2021` <dbl>
library(tidyverse)
## -- 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
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Manipulasi Data Inflow Uang Kartal di Bali Nusra Pada Tahun 2015

balinusra <- select(datainflow,'Provinsi', '2015')
balinusra
## # A tibble: 3 x 2
##   Provinsi            `2015`
##   <chr>                <dbl>
## 1 Bali                14471.
## 2 Nusa Tenggara Barat  6728.
## 3 Nusa Tenggara Timur  5530.

Manipulasi Data Inflow Uang Kartal Di Bali Nusra Tanpa Tahun 2015

balinusra <- select(datainflow,-'2015')
balinusra
## # A tibble: 3 x 11
##   Provinsi `2011` `2012` `2013` `2014` `2016` `2017` `2018` `2019` `2020` `2021`
##   <chr>     <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Bali      8912. 10782.  7248. 13104. 18140. 17822. 20434. 20654. 14323.  6531.
## 2 Nusa Te~  3819.  4379. 10628.  5620.  8149.  8770.  9271. 10288.  8546.  5222.
## 3 Nusa Te~  3693.  4260. 11524.  4668.  5652.  7569.  7555.  7738.  8356.  3472.

Manipulasi Data Inflow Uang Kartal di Bali Nusra Pada Tahun 2016-2018

balinusra <- select(datainflow,'Provinsi', '2016', '2017', '2018')
balinusra
## # A tibble: 3 x 4
##   Provinsi            `2016` `2017` `2018`
##   <chr>                <dbl>  <dbl>  <dbl>
## 1 Bali                18140. 17822. 20434.
## 2 Nusa Tenggara Barat  8149.  8770.  9271.
## 3 Nusa Tenggara Timur  5652.  7569.  7555.

Manipulasi Data Inflow Uang Kartal di Bali Nusra dengan Mengganti 2015 Menjadi Tahun 2015

balinusrarename <- datainflow %>% rename('Tahun 2015' = '2015')
head(balinusrarename)
## # A tibble: 3 x 12
##   Provinsi  `2011` `2012` `2013` `2014` `Tahun 2015` `2016` `2017` `2018` `2019`
##   <chr>      <dbl>  <dbl>  <dbl>  <dbl>        <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Bali       8912. 10782.  7248. 13104.       14471. 18140. 17822. 20434. 20654.
## 2 Nusa Ten~  3819.  4379. 10628.  5620.        6728.  8149.  8770.  9271. 10288.
## 3 Nusa Ten~  3693.  4260. 11524.  4668.        5530.  5652.  7569.  7555.  7738.
## # ... with 2 more variables: `2020` <dbl>, `2021` <dbl>

Manipulasi Data Inflow Uang Kartal di Bali Nusra Provinsi NTB pada Tahun 2018-2021

balinusra <- datainflow %>%
    filter(Provinsi == 'Nusa Tenggara Barat') %>%
    select( 'Provinsi', '2018','2019', '2020','2021')
balinusra
## # A tibble: 1 x 5
##   Provinsi            `2018` `2019` `2020` `2021`
##   <chr>                <dbl>  <dbl>  <dbl>  <dbl>
## 1 Nusa Tenggara Barat  9271. 10288.  8546.  5222.

Manipulasi Data Inflow Uang Kartal di Bali Nusra Provinsi NTT Pada Tahun 2012-2016

balinusra <- datainflow %>%
    filter(Provinsi == 'Nusa Tenggara Timur') %>%
    select( 'Provinsi', '2012','2013', '2014','2015', '2016',)
balinusra
## # A tibble: 1 x 6
##   Provinsi            `2012` `2013` `2014` `2015` `2016`
##   <chr>                <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Nusa Tenggara Timur  4260. 11524.  4668.  5530.  5652.

Struktur Data Inflow Uang Kartal di Bali Nusra

str(datainflow)
## tibble [3 x 12] (S3: tbl_df/tbl/data.frame)
##  $ Provinsi: chr [1:3] "Bali" "Nusa Tenggara Barat" "Nusa Tenggara Timur"
##  $ 2011    : num [1:3] 8912 3819 3693
##  $ 2012    : num [1:3] 10782 4379 4260
##  $ 2013    : num [1:3] 7248 10628 11524
##  $ 2014    : num [1:3] 13104 5620 4668
##  $ 2015    : num [1:3] 14471 6728 5530
##  $ 2016    : num [1:3] 18140 8149 5652
##  $ 2017    : num [1:3] 17822 8770 7569
##  $ 2018    : num [1:3] 20434 9271 7555
##  $ 2019    : num [1:3] 20654 10288 7738
##  $ 2020    : num [1:3] 14323 8546 8356
##  $ 2021    : num [1:3] 6531 5222 3472
str(datainflow %>% group_by(Provinsi))
## grouped_df [3 x 12] (S3: grouped_df/tbl_df/tbl/data.frame)
##  $ Provinsi: chr [1:3] "Bali" "Nusa Tenggara Barat" "Nusa Tenggara Timur"
##  $ 2011    : num [1:3] 8912 3819 3693
##  $ 2012    : num [1:3] 10782 4379 4260
##  $ 2013    : num [1:3] 7248 10628 11524
##  $ 2014    : num [1:3] 13104 5620 4668
##  $ 2015    : num [1:3] 14471 6728 5530
##  $ 2016    : num [1:3] 18140 8149 5652
##  $ 2017    : num [1:3] 17822 8770 7569
##  $ 2018    : num [1:3] 20434 9271 7555
##  $ 2019    : num [1:3] 20654 10288 7738
##  $ 2020    : num [1:3] 14323 8546 8356
##  $ 2021    : num [1:3] 6531 5222 3472
##  - attr(*, "groups")= tibble [3 x 2] (S3: tbl_df/tbl/data.frame)
##   ..$ Provinsi: chr [1:3] "Bali" "Nusa Tenggara Barat" "Nusa Tenggara Timur"
##   ..$ .rows   : list<int> [1:3] 
##   .. ..$ : int 1
##   .. ..$ : int 2
##   .. ..$ : int 3
##   .. ..@ ptype: int(0) 
##   ..- attr(*, ".drop")= logi TRUE
balinusra <- datainflow%>%
    group_by(Provinsi)
balinusra
## # A tibble: 3 x 12
## # Groups:   Provinsi [3]
##   Provinsi `2011` `2012` `2013` `2014` `2015` `2016` `2017` `2018` `2019` `2020`
##   <chr>     <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Bali      8912. 10782.  7248. 13104. 14471. 18140. 17822. 20434. 20654. 14323.
## 2 Nusa Te~  3819.  4379. 10628.  5620.  6728.  8149.  8770.  9271. 10288.  8546.
## 3 Nusa Te~  3693.  4260. 11524.  4668.  5530.  5652.  7569.  7555.  7738.  8356.
## # ... with 1 more variable: `2021` <dbl>
datainflow %>%
    filter(Provinsi == 'Nusa Tenggara Barat') %>%
    count('2015', sort = TRUE)
## # A tibble: 1 x 2
##   `"2015"`     n
##   <chr>    <int>
## 1 2015         1
balinusra <- datainflow %>%
    mutate('2011' = datainflow$'2012'/2)
balinusra
## # A tibble: 3 x 12
##   Provinsi `2011` `2012` `2013` `2014` `2015` `2016` `2017` `2018` `2019` `2020`
##   <chr>     <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Bali      5391. 10782.  7248. 13104. 14471. 18140. 17822. 20434. 20654. 14323.
## 2 Nusa Te~  2190.  4379. 10628.  5620.  6728.  8149.  8770.  9271. 10288.  8546.
## 3 Nusa Te~  2130.  4260. 11524.  4668.  5530.  5652.  7569.  7555.  7738.  8356.
## # ... with 1 more variable: `2021` <dbl>

Visualisasi Data Inflow Uang Kartal di Bali Nusra Pada Tahun 2020

ggplot(data = datainflow, mapping = aes(x = Provinsi, y = `2020`)) +
  geom_point()

Referensi