TUGAS BAB III (Histogram)

simpan = read.csv2(file.choose())
simpan

##     IQ
## 1  111
## 2  111
## 3  111
## 4  111
## 5  111
## 6  111
## 7  111
## 8  110
## 9  110
## 10 110
## 11 110
## 12 110
## 13 110
## 14 110
## 15 112
## 16 112
## 17 112
## 18 112
## 19 112
## 20 112
## 21 112
## 22 113
## 23 113
## 24 113
## 25 113
## 26 113
## 27 113
## 28 114
## 29 114
## 30 114
## 31 114
## 32 115
## 33 115
## 34 115
## 35 116
## 36 116
## 37 117
## 38  90
## 39  91
## 40  92
## 41  92
## 42  93
## 43  93
## 44  93
## 45  94
## 46  94
## 47  94
## 48  94
## 49  95
## 50  95
## 51  95
## 52  95
## 53  95
## 54  95
## 55  95
## 56  96
## 57  96
## 58  96
## 59  96
## 60  97
## 61  97
## 62  97
## 63  97
## 64  97
## 65  98
## 66  98
## 67  98
## 68 101
## 69 101
## 70 101
## 71 102
## 72 102
## 73 103
## 74 104
## 75 103
## 76 102
## 77 108
## 78 109
## 79 118

simpan_skor_IQ = as.numeric(gsub("[^0-9.]", "", as.character(simpan$IQ)))
simpan_skor_IQ[is.na(simpan_skor_IQ)] <- 0

hist(simpan_skor_IQ)

hist(simpan_skor_IQ, col="lightblue")

hist(simpan_skor_IQ, col="darkblue", ylim=c(0,40), main="Contoh Histogram", ylab="Frekuensi")

hist(simpan_skor_IQ, col="orange", ylim=c(0,40), main="Contoh Histogram", ylab="Frekuensi", breaks=c(90,100,110,120))

hist(simpan_skor_IQ, col=heat.colors(6), ylim=c(0,30), main="Contoh Histogram", ylab="Frekuensi",
     breaks=c(90,95,100,105,110,115,120), xlim=c(90,125))

hist(simpan_skor_IQ, col=heat.colors(6), ylim=c(0,30), main="Contoh Histogram", ylab="Frekuensi",
     breaks=c(90,93,96,99,102,105,108,111,114,117,120), xlim=c(90,125))

hist(simpan_skor_IQ, breaks=6, col=heat.colors(6), ylim=c(0,30), main="Contoh Histogram",
     ylab="Frekuensi", xlim=c(90,125))

hist(simpan_skor_IQ, breaks=c(90, 117, 120), ylim=c(0, 50), xlim=c(90, 125), main="Contoh Histogram",
     ylab="Frekuensi", col="orange")