Inpust 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

Dari data tersebut akan disajikan visualisasi data dalam bentuk Pie Chart. Berikut terlampir hasil visualisasi data Persentase Korban Tsunami disetiap negara:

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

Pie Chart ini menunjukkan bahwa Germany memiliki korban tsunami yang paling banyak, dan Australia memiliki korban tsunami yang paling sedikit.

Visualisasi Bar Chart

Dari data tersebut akan disajikan visualisasi data dalam bentuk Bar Chart. Berikut terlampir hasil visualisasi data Distribusi Tingkat korban bencana alam tsunami disetiap negara:

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

Bar Chart memperlihatkan jumlah korban tsunami dalam bentuk batang, ini menunjukkan bahwa Germany memiliki batang tertinggi, sedangkan Australia memiliki batang terendah.

Diagram Titik (Dot Plots)

Dari data tersebut akan disajikan visualisasi data dalam bentuk Dot Plot. Berikut terlampir hasil visualisasi data jarak tempuh kendaraan per liter:

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 tempus kendaraan per liter", xlab = "Jarak tempuh (km per liter")

Dot Plot ini menunjukkan titik-titik dalam plot mengumpul pada pola tertentu, Sebagian besar kendaraan memiliki jarak tempuh antara 15 hingga 25 km per liter.

Steam and Leaf Plots

Dari data tersebut akan disajikan visualisasi data dalam bentuk Stem and Leaf Plot. Berikut terlampir hasil visualisasi data distribusi jarak tempuh kendaraan per liter:

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

Stem and Leaf Plot menunjukkan jarak tempuh kendaraan per liter. Sebagian besar nilai tersebar di sekitar 14, 16, 18, dan 20, yang dapat menunjukkan bahwa mayoritas data berada di rentang ini.

Histogram

Dari data tersebut akan disajikan visualisasi data dalam bentuk Histogram. Berikut terlampir hasil visualisasi data jarak tempuh kendaraan per liter:

hist(mtcars$mpg, breaks = 9, main = "Histogram Jarak tempuh kendaraan per liter", col = "blue", xlab = "Jarak tempuh per liter")

Histogram ini menunjukkan bahwa kebanyakan kendaraan memiliki efisiensi bahan bakar antara 15-22 km/liter, dan beberapa kendaraan memiliki jarak tempuh yang lebih tinggi di atas 30 km/liter.