Visualisasi Data

korban <- c(10, 12, 4, 16, 8)
negara <- c("us", "uk", "australia", "germany", "france")
persen <- round((korban / sum(korban)) * 100)
data <- data.frame(korban, negara, persen)

barplot(data$korban, names.arg = data$negara, col = rainbow(length(data$korban)), main = "Bar Chart Korban Tsunami", xlab = "Negara", ylab = "Jumlah Korban")

pie(data$korban, labels = data$negara, col = rainbow(length(data$korban)), 
main = "Dot Plot Korban Tsunami", xlab = "Jumlah Korban")

dotchart(data$korban, labels = data$negara, col = rainbow(length(data$korban)), 
main = "Dot Plot Korban Tsunami", xlab = "Jumlah Korban")