Sebelum melakukan visualisasi data, akan diinputkan data terkait dengan korban tsunami di beberapa negara. Berikut terlampir data Korban Tsunami:
korban<-c(10,12,4,16,8)
negara<-c("US", "UK", "Australia", "Germany", "France")
persen<-round(korban/sum(korban)*100)
data.frame(korban, negara, persen)
## korban negara persen
## 1 10 US 20
## 2 12 UK 24
## 3 4 Australia 8
## 4 16 Germany 32
## 5 8 France 16
Hasil visualisasi data menggunakan Pie Chart disajikan sebagai berikut:
label<-paste(negara,persen,"%")
pie(korban, labels = label, col = rainbow(length(label)), main = "Pie Chart Korban Tsunami")
Hasil visualisasi data menggunakan Bar Chart disajikan sebagai berikut:
barplot(korban, col = "red", main = "Barplot Korban Tsunami", names.arg = negara)
Hasil visualisasi data menggunakan Histogram disajikan sebagai berikut:
hist(mtcars$mpg, breaks = 9, main="Histogram Gas Milage for Car Model", col = "blue", xlab = "Milage Per Gallon")
Hasil visualisasi data menggunakan Dot Plots disajikan sebagai berikut:
data("mtcars")
dotchart(mtcars$mpg, cex = .7, main = "Gas Milage for Car Model", xlab = "Milage per Gallon")
Hasil visualisasi data menggunakan Stem and Leaf Plots disajikan sebagai berikut:
stem(mtcars$mpg, scale = 2)
##
## The decimal point is at the |
##
## 10 | 44
## 12 | 3
## 14 | 3702258
## 16 | 438
## 18 | 17227
## 20 | 00445
## 22 | 88
## 24 | 4
## 26 | 03
## 28 |
## 30 | 44
## 32 | 49