---
  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    : Alexandro Afredo Louis
NIM     : 00000027662
Date    : 2019-08-21
Asistent: Tan Thing Heng
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="Diagram Perbandingan Responden oleh Alexandro Afredo Louis 00000027662" (harus diketik penuh tidak boleh dibuat fungsi)
c. Harus lengkap dengan kontribusinya
Jawab:
  ```{R}
respondent <-c(25, 15)
label <-c("Pria","Wanita")
warna <-c("Black","Red")
judul <- "Diagram Perbandigan Responden oleh Alexandro Afredo Louis 27662"
kontribusi <- round(100*respondent/sum(respondent),1)
labellengkap<-paste(label,kontribusi,"%",sep="")
pie(respondent,labellengkap,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}
kelasy<-c(20,20)
warna=c("Black","Red")
labelfixy=c("Pria","Wanita")
presentase <- round(100*kelasy/sum(kelasy),1)
labelfixy<-paste(labelfixy,presentase,"%",sep="")
pie(kelasy,label=labelfixy,main="Diagram Pie kelas Y dibuat oleh Alexandro Afredo Louis 27662",col=warna)

par(mfrow=c(1,2) ) # 1 row 2 kolom
pie(kelasx,xlab="Kelas X",label=labelfixx,col=warna)
pie(kelasy,xlab="Kelas Y",label=labelfixy,col=warna)
par(mfrow=c(1,1))
mtext(side=3,text = "Perbandingan Gender antara kelas X dengan kelas Y oleh Alexandro Afredo Louis 27662")

```

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}
ukuran <- c(10,4,2)
label<-c("S","M","L")
warna = c("Red","Yellow","Green")
kontribusi <- round(100*ukuran/sum(ukuran))
lengkap <- paste(label,kontribusi,"%",sep=" ")
pie(ukuran,lengkap,col=warna,main="Diagram Ukuran Sepatu oleh Alexandro Afredo Louis 27662")
```

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}
datasets::mtcars
mtcars$hp
hp<-c(245,205,215,230,245,264,335)
merk<-c("Duster 360","Fleetwood","Linclon","Chrysler","Camaro","Ford","Maserati")
warna = c("Red","Yellow","Green","Blue","Black","White","LightBlue")
kontribusi <- round(100*hp/sum(hp))
lengkap <- paste(merk,kontribusi,"%",sep=" ")
pie(hp,lengkap,col=warna,main="Mobil dengan Horsepower lebih dari 200 oleh Alexandro Afredo Louis 27662")
```


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}
gender<-c(25,15)
label<-c("Pria","Wanita")
warna = c("Black","Red")
barplot(gender,xlab="Gender",ylab="Jumlah",names=label,col = warna,main="Diagram Perbandingan Responden kelas X oleh Alexandro Afredo Louis 27662")
```

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}
jumlah<-c(40,40)
pria<-c(25,20)
wanita<-c(15,20)
gender <- rbind(pria,wanita)
label<-c("Pria","Wanita")
warna = c("LightBlue","Maroon")
barplot(gender,xlab = "Gender",ylab = "Jumlah",main = "Perbandingan Gender antar Kelas oleh Alexandro Afredo Louis",names.arg = label,col = warna,legend =c("Pria","Wanita"))

```

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}
pohon1=subset(Orange,Tree==1)
pohon2=subset(Orange,Tree==2)
pohon3=subset(Orange,Tree==3)
pohon4=subset(Orange,Tree==4)
pohon5=subset(Orange,Tree==5)

pohon=rbind(pohon1,pohon2,pohon3,pohon4,pohon5)
barplot(pohon$circumference,pohon$age,xlab="Age",ylab="Circumference", main = "Perbandingan antara Pohon oleh Alexandro Afredo Louis 27662")

```

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}
Penjualan <-c(800,170,500,100)
Bulan<-c("Januari","Februari","Maret","April")
sumbux = "Bulan"
sumbuy = "Penjualan"
tipe = "o"
warna<-c("Red")
plot(Penjualan,xlab =sumbux, ylab=sumbuy, main = "Diagram Penjualan Mobil oleh Alexandro Afredo Louis 00000027662", 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}
kopi <- c(800, 200, 500, 300)
teh <-c(600,250,700,200)
jus<-c(700,900,400,100)
plot (jus, type= "o",col="Green",xlab = "Bulan", ylab = "Penjualan", main = "Perbandingan Penjualan Kopi, Teh dan Jus oleh Alexandro Afredo Louis 27662")
lines(teh, type="o", col="Red")
lines(kopi, type="o", col="Black")
```

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}
JKSE =c(6533, 6443.3, 6468.8,6455.4, 6209.1, 6358.6, 6390.5, 6250.6)
BRI =c(3718, 3718, 3969, 4220, 3959,4360,4480, 4300)
ASII =c(8275, 7002, 7148, 7467, 7295, 7450, 7000, 6750)

plot(ASII, type = "o", col = "Blue", xlab ="Bulan", ylab = "Harga Penutupan", main = "Harga Saham BRI dan Astra vs IHSG oleh Alexandro Afredo Louis 27662")
lines(JKSE, type ="o", col="Black")
lines(BRI, type = "o", col = "Red")

```

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