Membuat Histogram & Polygon pada R-Programming

- Langkah pertama masukkan nilai mahasiswa dengan data berikut :
> 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
maka akan keluar
[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
- Kemudian kita urutkan nilai dari urutan terkecil sampai terbesar dengan menggunakan rumus :
> sort(data)
Outputnya :
[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
- Selanjutnya kita cari nilai terkecil dengan menggunakan rumus :
> min(data)
Outputnya : [1] 35
- Lalu kita cari nilai terbesar dengan menggunakan rumus :
> max(data)
Outputnya : [1] 96
- Bila kita ingin mengetahui jumlah data yang dimasukkan dengan menggunakan rumus :
> length(data)
Outputnya : [1] 60
- Kemudian masukkan rumus :
> jmlkls = 1+(3.322*log10(length(data)))
> jmlkls
Outputnya : [1] 6.907018
- Untuk membulatkan nilai hasil dari jmlkls menggunakan rumus :
> round(jmlkls)
Outputnya : [1] 7
- Selanjutnya mencari jangkauan dari data menggunakan rumus :
> jang = max(data) - min(data)
> jang
Outputnya : [1] 61
- Kemudian mencari interval dari data menggunakan rumus :
> int = jang/jmlkls
> int
Outputnya : [1] 8.831596
- Untuk membulatkan nilai hasil dari inteval menggunakan rumus :
> round(int)
Outputnya : [1] 9
Perhatikan gambar dibawah ini :

- Setelah itu kita buat tabel dengan cara masukkan rumus : > tabel=edit(data.frame())
Kemudian ubahlah nama Var 1 menjadi Kelas dengan type character.
Lihat gambar dibawah :

- Selanjutnya isi data tabel sesuai kelas-kelas yang di tentukan
Maka akan terlihat seperti gambar dibawah ini :

- Setelah mengisi kelas seperti gambar di atas kemudian close tabel
- Sekarang kita cari frekuensi dengan rumus :
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)
+ }
Lihat gambar dibawah ini :

- Kemudian kita isi data frekuensi sesuai kelas yang ditentukan dengan rumus :
> 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
- Setelah selesai data tadi dimasukkan kedalam data frekuensi dengan cara menggunakan rumus :
> fr = c (2,4,12,15,15,7,5)
Lalu
> fr
[1] 2 4 12 15 15 7 5
Lihat gambar dibawah ini :

- Jika kita ingin melihat tabel frekuensi kita masukkan rumus :
> tabel $ frekuensi <-fr
> tabel
Maka akan terbentuk tabel seperti dibawah ini :

- Selanjutnya kia isi data mean sesuai kelas yang ditentukan dengan cara masukkan rumus :
> 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
- Setelah selesai data tadi dimasukkan kedalam data mean dengan cara menggunakan rumus :
> me = c (39,48,57,66,75,84,93)
Lalu
> me
[1] 39 48 57 66 75 84 93
Lihat gambar dibawah ini :

- Jika kita ingin melihat tabel mean kita masukkan rumus :
> tabel $ mean <-me
> tabel
Maka akan terbentuk tabel seperti dibawah ini :

- Kemudian kita tampilkan histogram Nilai Mahasiswa dengan cara masukkan rumus :
> hist (data, main = "Nilai Mahasiswa")
Maka akan seperti gambar dibawah ini :

- Selanjutnya kita tampilkan polygon Nilai Mahasiswa dengan cara masukkan rumus :
> plot (me, fr, main = "Nilai Mahasiswa")
Maka akan keluar output seperti ini :

- Bila ingin memberikan warna pada polygon masukkan rumus :
> polygon (me, fr, col = "black" , border = "red")
Maka outputnya akan seperti gambar dibawah ini :

Sumber : http://defri-z.blogspot.com