Input Data

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

Visualisasi Pie Chart

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")

Visualisasi Bar Plot

Hasil visualisasi data menggunakan Bar Chart disajikan sebagai berikut:

barplot(korban, col = "red", main = "Barplot Korban Tsunami", names.arg = negara)

Visualisasi Histogram

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")

Diagram Titik (Dot Plots)

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")

Stem and Leaf Plots

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