Input Data

Sebelum melakukan visualisasi data, akan diiputkan data terkait dengan korban tsunami di beberapa negara. Berikut terlampir data Korban Tsunami:

korban <- c(20,16,8,12,8)
negara <- c("Japan","Indonesia","Singapore","Malaysia","Thailand")
persen <- round((korban/sum(korban))*100)
data.frame(korban, negara, persen)
##   korban    negara persen
## 1     20     Japan     31
## 2     16 Indonesia     25
## 3      8 Singapore     12
## 4     12  Malaysia     19
## 5      8  Thailand     12

Visualisasi Pie Chart

Hasil visualisasi data di atas dengan menggunakan Pie Chart disajikan sebagai berikut:

label <- paste(negara, persen, "%") #menambahkan persentase ke Pie chart
pie(korban, labels = label, col=rainbow(length(label)), main="Pie Chart Korban Tsunami")

Dari visualisasi data, dapat dilihat bahwa Jepang memiliki persentase korban tertinggi, diikuti oleh Indonesia, Malaysia, Singapura, dan Thailand.

Visualisasi Bar Chart

Hasil visualisasi data di atas dengan menggunakan Bar Chart disajikan sebagai berikut:

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

Visualisasi data menunjukkan bahwa Jepang memiliki jumlah korban tertinggi, sementara Singapura dan Thailand memiliki jumlah korban terendah.

Diagram Titik (Dot Plots)

Hasil visualisasi data di atas dengan menggunakan Dot Plots disajikan sebagai berikut:

data("mtcars")
head(mtcars)
##                    mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
## Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
## Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
## Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
## Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
## Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1
dotchart(mtcars$mpg, cex= 0.7, main = "Jarak Tempuh Kendaraan per Liter", xlab = "Jarak Tempuh (km) per Liter")

Visualisasi data menunjukkan distribusi jarak tempuh kendaraan per liter.Kendaraan dengan jarak tempuh tinggi terletak di sebelah kanan, sedangkan yang rendah di sebelah kiri. Dengan mayoritas kendaraan berada pada range jarak tempuh 15 sampai 20 km.

Stem and Leaf Plots

Hasil visualisasi data di atas dengan 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

Visualisasi data menunjukkan mayoritas jarak yang ditempuh per liter berada pada angka 14 km, diikuti angka 18 dan 20 dengan outlier di angka 30 dan 32.

Histogram

Hasil visualisasi data di atas dengan menggunakan Histogram disajikan sebagai berikut:

hist(mtcars$mpg, breaks = 9, main = "Histogram Jarak Tempuh Kendaraan per Liter",col = "blue", xlab = "Jarak Tempuh per Liter" )

Visualisasi data ini menunjukkan mayoritas jarak berada pada range 15 sampai 20 dengan outlier yang mencapai jarak 30 lebih.