Menyajikan Data dengan Histogram

simpan = read.csv("IQ.csv", header = TRUE)
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 114
## 28 114
## 29 114
## 30 114
## 31 115
## 32 115
## 33 115
## 34 116
## 35 116
## 36 117
## 37  90
## 38  91
## 39  92
## 40  92
## 41  93
## 42  93
## 43  93
## 44  94
## 45  94
## 46  94
## 47  94
## 48  95
## 49  95
## 50  95
## 51  95
## 52  95
## 53  95
## 54  96
## 55  96
## 56  96
## 57  96
## 58  97
## 59  97
## 60  97
## 61  97
## 62  97
## 63  98
## 64  98
## 65  98
## 66 101
## 67 101
## 68 101
## 69 102
## 70 102
## 71 103
## 72 104
## 73 103
## 74 102
## 75 108
## 76 109
## 77 118

simpan_skor_IQ = simpan$IQ
hist(simpan_skor_IQ, col= "white")

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 = c(90, 117, 120), ylim = c(0, 80),xlim = c(90, 125), main = "Contoh Histogram",col = heat.colors(2), freq = TRUE)

hist(simpan_skor_IQ, breaks = c(90, 92, 97, 117, 120), ylim = c(0, 80),xlim = c(90, 125), main = "Contoh Histogram",col = heat.colors(4), freq = TRUE)

library(ggplot2)

library(ggplot2)

ggplot(data = simpan, aes(IQ)) + geom_histogram(breaks = c(90, 95, 100, 105, 110, 115, 120), closed = "left",col = "darkblue",fill = heat.colors(6))