PLOT, HISTOGRAM, DAN DIAGRAM LINGKARAN

PLOT

Praktik pertama, masukkan data nama, uang dan belajar lalu jadikan sebuah frame seperti berikut:

nama = c("budi","mey","refi","mega","jimmy")
uang = c(20000,21111,2222,44444,22221)
belajar = c(3,2,1,4,5)
df = data.frame(nama, uang, belajar)
df
##    nama  uang belajar
## 1  budi 20000       3
## 2   mey 21111       2
## 3  refi  2222       1
## 4  mega 44444       4
## 5 jimmy 22221       5

Kemudian sajikan data tersebut dalam sebuah plot antara variabel uang dan belajar.

plot(uang,belajar)

Lalu beri label pada sumbu x sebagai uang, sumbu y sebagai belajar, serta judul atas sebagai Data.

plot(uang,belajar,xlab="uang",ylab="belajar",type="b",main="Data")

Setelah itu, bagi windows menjadi 1 baris 2 kolom.

par(mfrow = c(1,2))
plot(uang)
plot(belajar)

Berikutnya, bagi windows menjadi 2 baris 1 kolom.

par(mfrow = c(2,1))
plot(uang)
plot(belajar)

Praktik kedua, masukkan data usia, tinggi, tidur dan main.

usia = rep(21,4)
tinggi = c(163,158,164,168)
tidur = c(10,8,6,10)
main = c(3,5,5,5)

par(mfrow = c(2,2))
plot(usia)
plot(tinggi)
plot(tidur)
plot(main)

Penjelasan: mfrow akan membaca dari kiri ke kanan untuk plot yang diinput.

Kemudian bagi windows menjadi 2 kolom 2 baris.

par(mfcol = c(2,2))
plot(usia)
plot(tinggi)
plot(tidur)
plot(main)

Praktik ketiga, membuat diagram pencar dengan menggunakan fungsi plot. Dimana sumbu datar untuk nilai tes dan sumbu tegak untuk nilai akhir.

Nilai.Tes = c(50,35,35,40,55,65,35,60,90,35,90,80,60,60,60,40,55,50,65,50)
Nilai.Akhir = c(53,41,61,56,68,36,11,70,79,59,54,91,48,71,71,47,53,68,57,79)
plot(Nilai.Tes,Nilai.Akhir)

plot(Nilai.Tes,Nilai.Akhir,xlab="Nilai Tes",ylab="Nilai Akhir",type="b",main="Data Nilai Mahasiswa")

HISTOGRAM

Membuat grafik histogram untuk uang.

hist(uang)

Membuat grafik histogram untuk tinggi.

hist(tinggi)

DIAGRAM LINGKARAN

Pertama, masukkan data jumlah penggemar dan jenis film lalu sajikan dalam diagram lingkaran.

jml.penggemar = c(4,5,6,1,4)
jenis.film = c("Komedi","Aksi","Roman","Drama","Fiksi")
pie(jml.penggemar,labels=jenis.film,main="Diagram Lingkaran Penggemar Jenis Film")

Menampilkan jumlah penggemar dan presentasenya.

prsnts <- round(jml.penggemar/sum(jml.penggemar)*100)
jenis.film <- paste(jenis.film, prsnts, sep=" ")
jenis.film <- paste(jenis.film, "%", sep=" ")
pie(jml.penggemar,labels=jenis.film,main="Diagram Lingkaran Penggemar Jenis Film")

Membuat diagram menjadi berwarna.

pie(jml.penggemar,labels=jenis.film,col=rainbow(length(jenis.film)),main="Diagram Lingkaran Penggemar Jenis Film")

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Tentang saya, silakan kunjungi: