DATA
Datasets yang akan digunakan yaitu data EuStockMarket dari library datasets yang merupakan data Indeks Harga Saham (Germany DAX (Ibis), Switzerland SMI, France CAC, dan UK FTSE) harian di Eropa pada tahun 1991-1998.Kemudian dari datasets ini dipraktikkan penggunaan fungsi summarise(), arrange(), filter(),mutate(), dan select() minimal 1 kali secara terpisah. Selanjutnya juga akan di praktikkan penggunaan fungsi-fungsi tersebut secara bersama-sama.
library(datasets)
library(magrittr)
library(dplyr)Pengambilan data
data("EuStockMarkets")
EuStockMarkets<-tibble::as_tibble(EuStockMarkets)
EuStockMarkets## # A tibble: 1,860 x 4
## DAX SMI CAC FTSE
## <dbl> <dbl> <dbl> <dbl>
## 1 1629. 1678. 1773. 2444.
## 2 1614. 1688. 1750. 2460.
## 3 1607. 1679. 1718 2448.
## 4 1621. 1684. 1708. 2470.
## 5 1618. 1687. 1723. 2485.
## 6 1611. 1672. 1714. 2467.
## 7 1631. 1683. 1734. 2488.
## 8 1640. 1704. 1757. 2508.
## 9 1635. 1698. 1754 2510.
## 10 1646. 1716. 1754. 2497.
## # ... with 1,850 more rowsFungsi Summarise
Dengan menggunakan fungsi summarise akan dihitung rata-rata dari indeks harga saham Germany DAX (Ibis), Switzerland SMI, France CAC, dan UK FTSE.
EuStockMarkets%>%summarise(Mean.saham.DAX=mean(DAX))## # A tibble: 1 x 1
## Mean.saham.DAX
## <dbl>
## 1 2531.EuStockMarkets%>%summarise(Mean.saham.SMI=mean(SMI))## # A tibble: 1 x 1
## Mean.saham.SMI
## <dbl>
## 1 3376.EuStockMarkets%>%summarise(Mean.saham.CAC=mean(CAC))## # A tibble: 1 x 1
## Mean.saham.CAC
## <dbl>
## 1 2228.EuStockMarkets%>%summarise(Mean.saham.FTSE=mean(FTSE))## # A tibble: 1 x 1
## Mean.saham.FTSE
## <dbl>
## 1 3566.Fungsi Arrange
Fungsi arrange akan digunakan untuk mengurutkan data indeks harga saham Germany DAX (Ibis) dari terendah dan tertinggi
#Mengurutkan indeks harga saham dari indeks harga terendah
EuStockMarkets %>% arrange(DAX)## # A tibble: 1,860 x 4
## DAX SMI CAC FTSE
## <dbl> <dbl> <dbl> <dbl>
## 1 1402. 1788 1611 2446.
## 2 1421. 1820. 1612. 2488.
## 3 1435. 1858. 1654. 2517.
## 4 1438. 1878. 1657. 2541.
## 5 1442. 1882. 1655. 2557.
## 6 1446. 1870. 1674. 2539.
## 7 1454. 1877. 1650 2547.
## 8 1454. 1889. 1668. 2575.
## 9 1458. 1884 1664. 2564.
## 10 1464. 1710. 1668. 2281
## # ... with 1,850 more rows#Mengurutkan indeks harga saham dari indeks harga tertinggi
EuStockMarkets %>% arrange(desc(DAX))## # A tibble: 1,860 x 4
## DAX SMI CAC FTSE
## <dbl> <dbl> <dbl> <dbl>
## 1 6186. 8401. 4369. 6179
## 2 6184. 8412 4322. 6133.
## 3 6163. 8288. 4388. 6174
## 4 6108 8126. 4358. 6117.
## 5 6106. 8158. 4344. 6152.
## 6 6102. 8180. 4256. 6100.
## 7 6081. 8341. 4220. 5990.
## 8 6044. 8229. 4236. 5976.
## 9 6041. 8206. 4205. 5892.
## 10 6023. 8142. 4256. 5958.
## # ... with 1,850 more rowsFungsi Filter
Fungsi filter digunakan untuk memilih sebagian data berdasarkan nilai tertentu. Dengan menggunakan datasets EuStockMarket akan dipilih data harga saham yang mana indeks harga saham DAX>6000, SMI>6000, CAC>4000, dan FTSE>6000.
EuStockMarkets%>%filter(DAX>6000, SMI>6000, CAC>4000, FTSE>6000)## # A tibble: 7 x 4
## DAX SMI CAC FTSE
## <dbl> <dbl> <dbl> <dbl>
## 1 6019. 8227. 4340. 6010.
## 2 6102. 8180. 4256. 6100.
## 3 6106. 8158. 4344. 6152.
## 4 6108 8126. 4358. 6117.
## 5 6163. 8288. 4388. 6174
## 6 6186. 8401. 4369. 6179
## 7 6184. 8412 4322. 6133.Fungsi Select
Fungsi select() dapat digunakan untuk memilih subset data berdasarkan peubah tertentu.Dengan fungsi ini akan ditampilkan data indeks harga saham SMI dan FTSE.
EuStockMarkets %>% select(SMI, FTSE)## # A tibble: 1,860 x 2
## SMI FTSE
## <dbl> <dbl>
## 1 1678. 2444.
## 2 1688. 2460.
## 3 1679. 2448.
## 4 1684. 2470.
## 5 1687. 2485.
## 6 1672. 2467.
## 7 1683. 2488.
## 8 1704. 2508.
## 9 1698. 2510.
## 10 1716. 2497.
## # ... with 1,850 more rowsFungsi Mutate
Dengan menggunakan fungsi mutate() akan ditambahkan peubah baru yang bernama Jumlah.indeks, peubah ini berisi penjumlahan indeks harga saham DAX dan SMI.
EuStockMarkets%>%mutate(Jumlah.indeks=DAX+SMI)## # A tibble: 1,860 x 5
## DAX SMI CAC FTSE Jumlah.indeks
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1629. 1678. 1773. 2444. 3307.
## 2 1614. 1688. 1750. 2460. 3302.
## 3 1607. 1679. 1718 2448. 3285.
## 4 1621. 1684. 1708. 2470. 3305.
## 5 1618. 1687. 1723. 2485. 3305.
## 6 1611. 1672. 1714. 2467. 3282.
## 7 1631. 1683. 1734. 2488. 3314.
## 8 1640. 1704. 1757. 2508. 3344.
## 9 1635. 1698. 1754 2510. 3333.
## 10 1646. 1716. 1754. 2497. 3362.
## # ... with 1,850 more rowsFungsi Summarise dan Filter
Penggunaan fungsi summarise dan filter untuk mengetahui rata-rata harga saham DAX pada data dengan indeks harga saham > 5000.
EuStockMarkets%>%filter(DAX>5000)%>%summarise(Ratarata=mean(DAX))## # A tibble: 1 x 1
## Ratarata
## <dbl>
## 1 5555.Fungsi Select dan Filter
Penggunaan fungsi select dan filter untuk menampilkan data indeks harga saham DAX dan SMI yang lebih besar dari 6000.
EuStockMarkets%>%select(DAX, SMI)%>% filter(DAX>6000, SMI>6000)## # A tibble: 13 x 2
## DAX SMI
## <dbl> <dbl>
## 1 6019. 8227.
## 2 6001. 8205
## 3 6001. 8192.
## 4 6023. 8142.
## 5 6102. 8180.
## 6 6106. 8158.
## 7 6108 8126.
## 8 6163. 8288.
## 9 6186. 8401.
## 10 6184. 8412
## 11 6081. 8341.
## 12 6044. 8229.
## 13 6041. 8206.Fungsi Select, Filter, dan Arrange
Fungsi select dan filter diterapkan untuk menampilkan data DAX yang indeks harga sahamnya lebih besar dari 6000 kemudian fungsi arrange diterapkan untuk mengurutan data dari nilai tertinggi (Descending).
EuStockMarkets%>%select(DAX)%>%filter(DAX>6000)%>%arrange(desc(DAX))## # A tibble: 13 x 1
## DAX
## <dbl>
## 1 6186.
## 2 6184.
## 3 6163.
## 4 6108
## 5 6106.
## 6 6102.
## 7 6081.
## 8 6044.
## 9 6041.
## 10 6023.
## 11 6019.
## 12 6001.
## 13 6001.Fungsi Mutate, Filter, Summarise
Fungsi mutate digunakan untuk menambah peubah baru yang dinamakan gabungansaham (penjumlahan indeks harga saham SMI dan CAC), kemudian digunakan fungsi filter untuk memilih gabungansaham yang memiliki indeks harga lebih dari 6000 kemudian fungsi summarise digunakan untuk mencari nilai tengah (median) dari gabungansaham yang indeks harga sahamnya lebih besar dari 6000.
EuStockMarkets%>%mutate(gabungansaham=SMI+CAC)%>%filter(gabungansaham>6000)%>%summarise(Median.gabungan=median(gabungansaham))## # A tibble: 1 x 1
## Median.gabungan
## <dbl>
## 1 8681.