LP R-Programming 2

1. Apa yang kalian ketahui dari Histograf, Plot dan Polygon ?
Jawab :

• Histograf : Diagram batang yang menunjukkan tabulasi dari data yang diatur berdasarkan ukurannya
• Plot : Gambaran yang menunjukkan kemungkinan hubungan (korelasi) antara pasangan dua macam variabel dan menunjukkan keeratan hubungan antara dua variabel tersebut yang sering diwujudkan sebagai koefisien korelasi. 
• Polygon : Sederetan garis lurus yang sambung menyambung secara siklik sehingga melingkupi suatu area. 

2. Buatlah masing-masing contoh coding dari Histograf, Plot dan Polygon!
Jawab :
Contoh Coding dari Histograf, Plot dan Polygon :
> data = c(41, 45, 49, 51, 52, 53, 55, 56, 63, 57, 57, 58, 59, 60, 61, 67, 62, 56, 63, 35, 65, 65, 65, 67, 67, 73, 61, 69, 69, 96, 69, 70, 71, 71, 77, 79, 73, 93, 73, 81, 75, 75, 77, 77, 89, 67, 79, 79, 81, 59, 83, 83, 87, 89, 71, 92, 81, 65, 84, 73)
> data
[1] 41 45 49 51 52 53 55 56 63 57 57 58 59 60 61 67 62 56 63 35 65 65 65 67 67
[26] 73 61 69 69 96 69 70 71 71 77 79 73 93 73 81 75 75 77 77 89 67 79 79 81 59
[51] 83 83 87 89 71 92 81 65 84 73
> sort(data)
[1] 35 41 45 49 51 52 53 55 56 56 57 57 58 59 59 60 61 61 62 63 63 65 65 65 65
[26] 67 67 67 67 69 69 69 70 71 71 71 73 73 73 73 75 75 77 77 77 79 79 79 81 81
[51] 81 83 83 84 87 89 89 92 93 96
> min(data)

[1] 35
> max(data)
[1] 96
> length(data)
[1] 60
> jmlkls = 1+(3.322*log10(length(data)))
> jmlkls

[1] 6.907018
> round(jmlkls)
[1] 7
> jangkauan = max(data) - min(data)
> jangkauan
[1] 61
> interval = jangkauan/jmlkls
> interval
[1] 8.831596
> round(interval)
[1] 9
> tabel=edit(data.frame())
> frek = function (x,y,z)
+ {
+ a = 0
+ for (i in 1 : length (x))
+ {
+ if (x[i]>=y && x[i]<=z)
+ {
+ a = a+1
+ }
+ }
+ print (a)
+ }
> frek (data,35,43)
[1] 2
> frek (data,44,52)
[1] 4
> frek (data,53,61)
[1] 12
> frek (data,62,70)
[1] 15
> frek (data,71,79)
[1] 15
> frek (data,80,88)
[1] 7
> frek (data,89,97)
[1] 5
> fr = c (2,4,12,15,15,7,5)
> fr
[1] 2 4 12 15 15 7 5
> tabel $ frekuensi <-fr
> tabel
    Kelas  frekuensi
1  35-43             2
2  44-52             4
3  53-61           12
4  62-70           15
5  71-79           15
6  80-88             7
7  89-97             5
> mean (35:43)
[1] 39
> mean (44:52)
[1] 48
> mean (53:61)
[1] 57
> mean (62:70)
[1] 66
> mean (71:79)
[1] 75
> mean (80:88)
[1] 84
> mean (89:97)
[1] 93
> me = c (39,48,57,66,75,84,93)
> me
[1] 39 48 57 66 75 84 93
> tabel $ mean <-me
> tabel
    Kelas frekuensi mean
1  35-43             2     39
2  44-52             4     48
3  53-61           12     57
4  62-70           15     66
5  71-79           15     75
6  80-88             7     84
7  89-97             5     93
> hist (data, main = "Nilai Mahasiswa")
> plot (me, fr, main = "Nilai Mahasiswa")
> polygon (me, fr, col = "black" , border = "red")

HISTOGRAM
> hist (data,main = "Nilai Mahasiswa") 

PLOT
> plot (me,fr,main="Nilai Mahasiswa") 

POLYGON 

> polygon(me,fr,col="black",border="red")

Keterangan :

Me = penggabungan nilai mean. 

Ex: me=c(39,48,57,66,75,84,93)

Fr = penggabungan nilai frekuensi. 

Ex: fr=c(2,4,12,15,15,7,5)

main = sebagai judul dari suatu grafik/diagram.

col = pemberian warna untuk garis pada grafik polygon.