---
output:
  pdf_document: default
  html_document: default
  word_document: default
editor_options:
  chunk_output_type: console
---
************************************************************************************************************
Week 2  : Visualisasi 1
title   : "Membuat Pie, Bar,Lines Sederhana dengan R"
Nama    : .....................
NIM     : .....................
Date    : .....................
Asistent: .....................
Waktu   : Max 50 menit
*************************************************************************************************************
FILE UNTUK Mahasiswa
*************************************************************************************************************
>>>Gunakan View-Panes-Zoom Source

Petunjuk untuk Asisten:

  1. 15 menit pertama Bagikan semua Markdown file minggu ini distribusikan ke masing-masing PC mahasiswa
  2. Jelaskan apa yang harus dikerjakan oleh mahasiswa
  3. Jelaskan jam berapa harus dikumpulkan dan dimana file harus disimpan
  4. Mahasiswa boleh mengerjakan sesi mana saja soal mana saja
  5. Setelah waktu max 4x50 menit atau 3 jam 20 menit itu diadakan penarikan file.
  6. Yang tidak berhasil ditarik ataupun belum selesai dianggap belum selesai
  7. Yang belum selesai, boleh dilanjutkan di rumah, dikumpulkan max minggu depan ke Asisten (elearning/email)
  8. Cara penilaian praktikum (masuk ke nilai tugas lab):
     a. selesai dan benar semua nilai 100 pada saat di lab hari yang sama
     b. yang tidak selesai boleh bawa pulang:
        b.1. kumpul minggu depan benar semua nilai 80
        b.2. kumpul minggu depan salah 1 nilai 70
        b.3. kumpul minggu depan salah>1 nilai 50
        b.4. tidak kumpul minggu depan nilai 0
  9. Lakukan presensi 15 menit sebelum jam berakhir.

Petunjuk untuk mahasiswa:

  1. Nyalakan dan periksa PC kalau ada problem laporkan ke Asisten dan pindah ke PC yang lain
  2. Dapatkan dari asistent dan rename file markdown ini dengan WEEK2_Vis1_NAMA_NIM
  3. Isi dulu data-data kamu di atas!
  4. Kerjakan soal-soal yang bisa dulu dengan benar
  5. Isilah jawabanmu di area {R} yang berwarna abu-abu
  6. Kalau mengalami kesulitan, silakan cari solusi diinternet/buku catatan dll
  7. Maximal mengerjakan sesi ini dan sesi lainnya adalah 200 menit (3 jam 20 menit)
  8. Bila sudah selesai dan yakin benar, silakan simpan ditempat yang ditentukan oleh asisten
  9. Bila belum selesai jangan dikumpulkan, boleh bawa pulang, kumpulkan minggu depan
  10. Mahasiswa yang absen minta file lab ke aisten boleh ikut kumpulkan minggu depan.

A Diagram Pie
=============

Soal A1.
-------------------------------------------------------------------------------------------------------------
Kelas X terdiri dari 25 Pria dan 15 Wanita.
Gambarkan diagram Pienya!

Catatan:

   a. Pria warna hitam, Wanita warna Merah
   b. Judul=".................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
   c. Harus lengkap dengan kontribusinya
Jawab:
```{R}
respondent1<-c(25,15) #membuat data berbentuk vektor
label<-c("pria","wanita") #membuat label kategori
judul1="Diagram X oleh EltonJoman
00000028487" #membuat judul chart
warna=c("Black","Red") #membuat warna
kontribusi<-round(100*respondent/sum(respondent),1) #membuat kontribusi kategori
label_lengkap1<-paste(label,kontribusi,"%",sep="") #melengkapi label dengan kontribusi
pie(respondent,label_lengkap,main=judul,col=warna)
```

Soal A2.
---------------------------------------------------------------------------------
Kelas Y terdiri dari 20 Pria dan 20 Wanita.
Gambarkan diagram Pie X dan Y secara berdampingan!
Catatan:

   a. Pria warna hitam, Wanita warna Merah
   b. Salah satu Judul=".................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
   c. Harus lengkap dengan kontribusinya
Jawab:
```{R}
respondent2<-c(20,20) #membuat data berbentuk vektor
label<-c("pria","wanita") #membuat label kategori
judul2="Diagram Y oleh EltonJoman
00000028487" #membuat judul chart
warna=c("Black","Red") #membuat warna
kontribusi<-round(100*respondent/sum(respondent),1) #membuat kontribusi kategori
label_lengkap2<-paste(label,kontribusi,"%",sep="") #melengkapi label dengan kontribusi
pie(respondent,label_lengkap,main=judul,col=warna)

par(mfrow=c(1,2))
pie(respondent1,label_lengkap1,main=judul1,col=warna)
pie(respondent1,label_lengkap2,main=judul2,col=warna)
```

SOAL A3.
--------------------------------------------------------------------------------------------------------
Ukuran sepatu mahasiswa di kelas X: "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "M", "M", "M", "M", "L", "L".
Buatlah diagram pienya dimana warna merah untuk S, kuning untuk M, dan Hijau untuk L.
Catatan:

   a. Warna Large Hijau, Medium Kuning, Small Merah
   b. Judul=".................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
   c. Harus lengkap dengan kontribusinya
JAWAB:
```{R}
respondent<-c(2,4,10) #membuat data berbentuk vektor
label <- c("Small", "Medium", "Large") # membuat label kategori
judul ="Diagram Ukuran sepatu
mahasiswa di kelas X
oleh EltonJoman
00000028487" # membuat judul chart
warna = c("Red","Yellow","Green") # membuat warna
kontribusi<- round(100*respondent/sum(respondent), 1) # membuat kontribusi kategori
label_lengkap<-paste(label,kontribusi,"%",sep=" ") # melengkapi label dengankontribusi
pie(respondent,label_lengkap,main=judul,col=warna)
```

Soal A4:
--------------------------------------------------------------------------------------------
Gunakan dataset mtcars pada R dan buatlah diagram pie berdasarkan variabel hp (horsepower)
dengan syarat setiap merk harus memiliki hp di atas 200.
Catatan:

   a. Warna bebas
   b. Judul=".................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
   c. Harus lengkap dengan kontribusinya
Jawab:
```{R}

```


B Diagram Bar
=============

Soal B1
-------------------------------------------------------------------------------------------------------------
Kelas X terdiri dari 25 Pria dan 15 Wanita mahasiswa.
Gambarkan diagram Batangnya!

   a. Judul=".................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
   b. warna pria=hitam, wanita=merah
Jawab:
```{R}

```

Soal B2
--------------------------------------------------------------------------------------------------------
Kelas A terdiri dari 25 Pria dan 15 Wanita sedangkan kelas B terdiri dari 20 Pria dan 20 Wanita
Gambarkan diagram Batang bertumpuknya (Stacked Bar)!
Catatan:

   a. Judul=".................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
   b. warna pria=biru muda, wanita=merah muda
   c. gunakan legend namun tidak boleh bertumpuk dengan batangnya
Jawab:
```{R}

```

Soal B3
-------------------------------------------------------------------------------------------
Pada dataset Orange di R terdapat 5 pohon dengan data umur (age) dan circumference
Gambarkan diagram batang berdampingan untuk kelima pohon tsb!
Catatan:

   a. Judul="....................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
   b. sumbu mendatar age, sumbu vertikal circumference.
   b. warna bebas asal harus berbeda untuk setiap pohonnya
   c. gunakan legend namun tidak boleh bertumpuk dengan batangnya
   Jawab:

```{R}
```

Soal B4
-------

Buatlah diagram batang berdampingan cut untuk setiap clarity untuk data diamonds pada package tidyverse.
a. Diamond yang dipilih adalah diamond yang memiliki harga di atas 1000 dolar.
b. Judul = "Diamonds Cut by Clarity oleh NIM xxx"
c. Sumbu mendatar: clarity
d. Legend: cut
e. Gunakan warna berbeda untuk setiap cut.
f. Adjust ylim sehingga sumbu Y untuk diagram batang tidak terpotong.

```{r}


```



C Diagram Garis
===============

Soal C1
-----------------------------------------------------------------------------------------------------------
Laporan Penjualan Mobil di Bulan Januari ada 800 buah, bulan Februari ada 170 buah, bulan Maret 500 buah dan bulan April 100 buah.
Catatan:

a. garis penuh
b. warna garis merah
c. pada setiap bulan diberi titik berbentuk bulat
d. Judul="....................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)
Jawab:
```{R}
  Jakarta <- c(800, 170, 500, 100) # membuat data berbentuk vektor
sumbux = "Bulan"
sumbuy = "Jumlah Respondent"
judul = "Diagram Perkembangan
Respondent Jakarta" # membuat judul chart
tipe = "o" # titik dan garis
warna = c("Red") # membuat warna
plot(Jakarta,xlab=sumbux,ylab=sumbuy,main=judul,type=tipe,col=warna)
```

Soal C2.
-----------------------------------------------------------------------------------------------------------
Suatu cafe menjual 4 jenis hidangan yaitu Kopi, Teh, dan Jus.
Kopi Bulan Januari ada 800 gelas, bulan Februari ada 200 gelas, bulan Maret 500 gelas dan bulan April 300 gelas.
Teh: Bulan Januari ada 600 gelas, bulan Februari ada 250 gelas, bulan Maret 700 gelas dan bulan April 200 gelas.
Jus: Bulan Januari ada 700 gelas, bulan Februari ada 900 gelas, bulan Maret 400 gelas dan bulan April 100 gelas.
Buatlah diagram gars untuk ketiga jenis minuman tsb.
Catatan:

a. Kopi garis hitam solid
b. Teh garis merah longdash
c. Jus garis hijau dotted
d. pada setiap bulan diberi titik bebas asalkan setiap jenis minuman berbeda
e. Judul="....................... oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)

Jawab:

```{R}

```

Soal C3
-------

Berikut ini adalah data harga penutupan (adjusted closing price) Indeks Saham Gabungan (^JKSE), saham Bank BRI (BBRI.JK) dan saham Astra (ASII.JK) bulanan selama tahun 2019.
Gambarkan grafik garis untuk membandingkan keempat data ini.

Date	JKSEAdjClose	BBRIAdjustClose	ASIIAdjClose
2019-01	6533.0	3718	8275
2019-02	6443.3	3718	7002
2019-03	6468.8	3969	7148
2019-04	6455.4	4220	7467
2019-05	6209.1	3959	7295
2019-06	6358.6	4360	7450
2019-07	6390.5	4480	7000
2019-08	6250.6	4300	6750

Catatan:

a. IHSG garis hitam solid
b. BRI garis merah dotdash
c. Astra garis biru dotted
d. Tuliskan legend untuk ketiga item di atas. Gunakan kode BBRI.JK dst sebagai label legend.
e. Label pada sumbu x: "Bulan", label pada sumbu Y: "Harga Penutupan"
f. Judul="Harga Saham BRI dan Astra vs IHSG oleh <Nama> <Nim>" (harus diketik penuh tidak boleh dibuat fungsi)

```{r}

```

***************************************************************
Selamat mengerjakan
***************************************************************