Tugas Mandarel_sesi UAS

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

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ forcats   1.0.0     ✔ readr     2.1.5
## ✔ ggplot2   3.5.1     ✔ stringr   1.5.1
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

MENGAMBIL DATA DARI DATASET R

data(mpg)

MENAMPILKAN DATA

Menampilkan struktur data

str(mpg)

## tibble [234 × 11] (S3: tbl_df/tbl/data.frame)
##  $ manufacturer: chr [1:234] "audi" "audi" "audi" "audi" ...
##  $ model       : chr [1:234] "a4" "a4" "a4" "a4" ...
##  $ displ       : num [1:234] 1.8 1.8 2 2 2.8 2.8 3.1 1.8 1.8 2 ...
##  $ year        : int [1:234] 1999 1999 2008 2008 1999 1999 2008 1999 1999 2008 ...
##  $ cyl         : int [1:234] 4 4 4 4 6 6 6 4 4 4 ...
##  $ trans       : chr [1:234] "auto(l5)" "manual(m5)" "manual(m6)" "auto(av)" ...
##  $ drv         : chr [1:234] "f" "f" "f" "f" ...
##  $ cty         : int [1:234] 18 21 20 21 16 18 18 18 16 20 ...
##  $ hwy         : int [1:234] 29 29 31 30 26 26 27 26 25 28 ...
##  $ fl          : chr [1:234] "p" "p" "p" "p" ...
##  $ class       : chr [1:234] "compact" "compact" "compact" "compact" ...

Menampilkan data secara keseluruhan dengan print dan View

print(mpg)

## # A tibble: 234 × 11
##    manufacturer model      displ  year   cyl trans drv     cty   hwy fl    class
##    <chr>        <chr>      <dbl> <int> <int> <chr> <chr> <int> <int> <chr> <chr>
##  1 audi         a4           1.8  1999     4 auto… f        18    29 p     comp…
##  2 audi         a4           1.8  1999     4 manu… f        21    29 p     comp…
##  3 audi         a4           2    2008     4 manu… f        20    31 p     comp…
##  4 audi         a4           2    2008     4 auto… f        21    30 p     comp…
##  5 audi         a4           2.8  1999     6 auto… f        16    26 p     comp…
##  6 audi         a4           2.8  1999     6 manu… f        18    26 p     comp…
##  7 audi         a4           3.1  2008     6 auto… f        18    27 p     comp…
##  8 audi         a4 quattro   1.8  1999     4 manu… 4        18    26 p     comp…
##  9 audi         a4 quattro   1.8  1999     4 auto… 4        16    25 p     comp…
## 10 audi         a4 quattro   2    2008     4 manu… 4        20    28 p     comp…
## # ℹ 224 more rows

View(mpg)

Menampilkan 6 Data Teratas

head(mpg)

## # A tibble: 6 × 11
##   manufacturer model displ  year   cyl trans      drv     cty   hwy fl    class 
##   <chr>        <chr> <dbl> <int> <int> <chr>      <chr> <int> <int> <chr> <chr> 
## 1 audi         a4      1.8  1999     4 auto(l5)   f        18    29 p     compa…
## 2 audi         a4      1.8  1999     4 manual(m5) f        21    29 p     compa…
## 3 audi         a4      2    2008     4 manual(m6) f        20    31 p     compa…
## 4 audi         a4      2    2008     4 auto(av)   f        21    30 p     compa…
## 5 audi         a4      2.8  1999     6 auto(l5)   f        16    26 p     compa…
## 6 audi         a4      2.8  1999     6 manual(m5) f        18    26 p     compa…

PENGGUNAAN 1 FUNGSI

Filtering

Mengambil data mpg berdasarkan displ (ukuran mesin)>2.0

mpg_filtered_displ<-filter(mpg, displ>2.0)
head(mpg_filtered_displ)

## # A tibble: 6 × 11
##   manufacturer model      displ  year   cyl trans  drv     cty   hwy fl    class
##   <chr>        <chr>      <dbl> <int> <int> <chr>  <chr> <int> <int> <chr> <chr>
## 1 audi         a4           2.8  1999     6 auto(… f        16    26 p     comp…
## 2 audi         a4           2.8  1999     6 manua… f        18    26 p     comp…
## 3 audi         a4           3.1  2008     6 auto(… f        18    27 p     comp…
## 4 audi         a4 quattro   2.8  1999     6 auto(… 4        15    25 p     comp…
## 5 audi         a4 quattro   2.8  1999     6 manua… 4        17    25 p     comp…
## 6 audi         a4 quattro   3.1  2008     6 auto(… 4        17    25 p     comp…

Select

Memilih kolom manufacturer

mpg_selected_manufacturer <- mpg %>%
  select(manufacturer)
mpg_selected_manufacturer

## # A tibble: 234 × 1
##    manufacturer
##    <chr>       
##  1 audi        
##  2 audi        
##  3 audi        
##  4 audi        
##  5 audi        
##  6 audi        
##  7 audi        
##  8 audi        
##  9 audi        
## 10 audi        
## # ℹ 224 more rows

head(mpg_selected_manufacturer)

## # A tibble: 6 × 1
##   manufacturer
##   <chr>       
## 1 audi        
## 2 audi        
## 3 audi        
## 4 audi        
## 5 audi        
## 6 audi

Arranging

Mengurutkan data mpg berdasarkan tipe transmisi(trans)

mpg_arrange_trans<- mpg %>% arrange(desc(trans))
mpg_arrange_trans

## # A tibble: 234 × 11
##    manufacturer model      displ  year   cyl trans drv     cty   hwy fl    class
##    <chr>        <chr>      <dbl> <int> <int> <chr> <chr> <int> <int> <chr> <chr>
##  1 audi         a4           2    2008     4 manu… f        20    31 p     comp…
##  2 audi         a4 quattro   2    2008     4 manu… 4        20    28 p     comp…
##  3 audi         a4 quattro   3.1  2008     6 manu… 4        15    25 p     comp…
##  4 chevrolet    corvette     5.7  1999     8 manu… r        16    26 p     2sea…
##  5 chevrolet    corvette     6.2  2008     8 manu… r        16    26 p     2sea…
##  6 chevrolet    corvette     7    2008     8 manu… r        15    24 p     2sea…
##  7 dodge        dakota pi…   3.7  2008     6 manu… 4        15    19 r     pick…
##  8 dodge        ram 1500 …   4.7  2008     8 manu… 4        12    16 r     pick…
##  9 dodge        ram 1500 …   4.7  2008     8 manu… 4        12    16 r     pick…
## 10 dodge        ram 1500 …   4.7  2008     8 manu… 4         9    12 e     pick…
## # ℹ 224 more rows

head(mpg_arrange_trans)

## # A tibble: 6 × 11
##   manufacturer model      displ  year   cyl trans  drv     cty   hwy fl    class
##   <chr>        <chr>      <dbl> <int> <int> <chr>  <chr> <int> <int> <chr> <chr>
## 1 audi         a4           2    2008     4 manua… f        20    31 p     comp…
## 2 audi         a4 quattro   2    2008     4 manua… 4        20    28 p     comp…
## 3 audi         a4 quattro   3.1  2008     6 manua… 4        15    25 p     comp…
## 4 chevrolet    corvette     5.7  1999     8 manua… r        16    26 p     2sea…
## 5 chevrolet    corvette     6.2  2008     8 manua… r        16    26 p     2sea…
## 6 chevrolet    corvette     7    2008     8 manua… r        15    24 p     2sea…

Summarize

menghitung mean dari data hwy(konsumsi bahan bakar di jalan raya)

mpg_mean_hwy <- mpg %>%
  summarise(mean = mean(hwy, na.rm = TRUE))
mpg_mean_hwy

## # A tibble: 1 × 1
##    mean
##   <dbl>
## 1  23.4

Mutate

Membuat variabel baru yaitu total konsumsi bahan bakar(cty+hwy)

Total_konsumsi_bahanbakar<-mutate(mpg, Total_bahanbakar= cty+hwy)
head(Total_konsumsi_bahanbakar)

## # A tibble: 6 × 12
##   manufacturer model displ  year   cyl trans      drv     cty   hwy fl    class 
##   <chr>        <chr> <dbl> <int> <int> <chr>      <chr> <int> <int> <chr> <chr> 
## 1 audi         a4      1.8  1999     4 auto(l5)   f        18    29 p     compa…
## 2 audi         a4      1.8  1999     4 manual(m5) f        21    29 p     compa…
## 3 audi         a4      2    2008     4 manual(m6) f        20    31 p     compa…
## 4 audi         a4      2    2008     4 auto(av)   f        21    30 p     compa…
## 5 audi         a4      2.8  1999     6 auto(l5)   f        16    26 p     compa…
## 6 audi         a4      2.8  1999     6 manual(m5) f        18    26 p     compa…
## # ℹ 1 more variable: Total_bahanbakar <int>

PENGGUNAAN 2 FUNGSI BERSAMAAN

Hanya menampilakan manufacturer dan cyl dan diurutkan

mpg_selected_1 <- mpg %>%
  select(manufacturer, cyl) %>%  
  arrange((cyl))
mpg_selected_1 

## # A tibble: 234 × 2
##    manufacturer   cyl
##    <chr>        <int>
##  1 audi             4
##  2 audi             4
##  3 audi             4
##  4 audi             4
##  5 audi             4
##  6 audi             4
##  7 audi             4
##  8 audi             4
##  9 chevrolet        4
## 10 chevrolet        4
## # ℹ 224 more rows

head(mpg_selected_1)

## # A tibble: 6 × 2
##   manufacturer   cyl
##   <chr>        <int>
## 1 audi             4
## 2 audi             4
## 3 audi             4
## 4 audi             4
## 5 audi             4
## 6 audi             4

Memfilter data manufacturer dan displ >2.0 kemudian diurutkan berdasarkan tahun

mpg_filtered_3 <- mpg %>%
  filter(manufacturer == "audi", displ > 2.0) %>%
  arrange((year))
mpg_filtered_3

## # A tibble: 10 × 11
##    manufacturer model      displ  year   cyl trans drv     cty   hwy fl    class
##    <chr>        <chr>      <dbl> <int> <int> <chr> <chr> <int> <int> <chr> <chr>
##  1 audi         a4           2.8  1999     6 auto… f        16    26 p     comp…
##  2 audi         a4           2.8  1999     6 manu… f        18    26 p     comp…
##  3 audi         a4 quattro   2.8  1999     6 auto… 4        15    25 p     comp…
##  4 audi         a4 quattro   2.8  1999     6 manu… 4        17    25 p     comp…
##  5 audi         a6 quattro   2.8  1999     6 auto… 4        15    24 p     mids…
##  6 audi         a4           3.1  2008     6 auto… f        18    27 p     comp…
##  7 audi         a4 quattro   3.1  2008     6 auto… 4        17    25 p     comp…
##  8 audi         a4 quattro   3.1  2008     6 manu… 4        15    25 p     comp…
##  9 audi         a6 quattro   3.1  2008     6 auto… 4        17    25 p     mids…
## 10 audi         a6 quattro   4.2  2008     8 auto… 4        16    23 p     mids…

Mengetahui urutan model mobil audi berdasarkan konsumsi bahan bakar di jalan raya (hwy) yang tertinggi

audi_hwy<-mpg %>%
  select(manufacturer, hwy, model) %>%
  filter(manufacturer == "audi") %>%
  arrange(desc(hwy))
audi_hwy

## # A tibble: 18 × 3
##    manufacturer   hwy model     
##    <chr>        <int> <chr>     
##  1 audi            31 a4        
##  2 audi            30 a4        
##  3 audi            29 a4        
##  4 audi            29 a4        
##  5 audi            28 a4 quattro
##  6 audi            27 a4        
##  7 audi            27 a4 quattro
##  8 audi            26 a4        
##  9 audi            26 a4        
## 10 audi            26 a4 quattro
## 11 audi            25 a4 quattro
## 12 audi            25 a4 quattro
## 13 audi            25 a4 quattro
## 14 audi            25 a4 quattro
## 15 audi            25 a4 quattro
## 16 audi            25 a6 quattro
## 17 audi            24 a6 quattro
## 18 audi            23 a6 quattro

head(audi_hwy)

## # A tibble: 6 × 3
##   manufacturer   hwy model     
##   <chr>        <int> <chr>     
## 1 audi            31 a4        
## 2 audi            30 a4        
## 3 audi            29 a4        
## 4 audi            29 a4        
## 5 audi            28 a4 quattro
## 6 audi            27 a4

Menghitung rata-rata konsumsi bahan bakar di kota (cty) untuk tiap merek mobil

mpg_mean_cty<-mpg %>% group_by(manufacturer) %>% summarize(mean=mean(cty))
mpg_mean_cty

## # A tibble: 15 × 2
##    manufacturer  mean
##    <chr>        <dbl>
##  1 audi          17.6
##  2 chevrolet     15  
##  3 dodge         13.1
##  4 ford          14  
##  5 honda         24.4
##  6 hyundai       18.6
##  7 jeep          13.5
##  8 land rover    11.5
##  9 lincoln       11.3
## 10 mercury       13.2
## 11 nissan        18.1
## 12 pontiac       17  
## 13 subaru        19.3
## 14 toyota        18.5
## 15 volkswagen    20.9

Menambah variabel baru dan hanya menampilkan 3 kolom terpilih

mpg_daftarkonsumsibahanbakar<- mpg %>%
  mutate(mpg, Total_bahanbakar= cty+hwy) %>%
  select("manufacturer","model", "Total_bahanbakar")
mpg_daftarkonsumsibahanbakar

## # A tibble: 234 × 3
##    manufacturer model      Total_bahanbakar
##    <chr>        <chr>                 <int>
##  1 audi         a4                       47
##  2 audi         a4                       50
##  3 audi         a4                       51
##  4 audi         a4                       51
##  5 audi         a4                       42
##  6 audi         a4                       44
##  7 audi         a4                       45
##  8 audi         a4 quattro               44
##  9 audi         a4 quattro               41
## 10 audi         a4 quattro               48
## # ℹ 224 more rows

Keterangan Tambahan

manufacturer: nama perusahan atau bisa juga menunjukkan merek mobilnya model: model atau tipe dari mobil displ: kapasitas mesin (dalam liter) year: tahun pembuatan cyl: jumlah silinder pada mesin trans: jenis transmisi contoh(manual, otomatis) dirv:sistem penggerak kendaraan cty: konsumsi bahan bakar kendaaran di kota (miles per gallon,mpg) hwy: konsumsi bahan bakar kendaraan di jalan raya f1: jenis bahan bakar yang digunakan misal p untuk premium class: kelas kendaraan seperti sedan,SUV dll