# Membuat dataset korban tsunami
korban <- c(10, 12, 4, 16, 8, 50, 30, 20, 40, 25)
negara <- c("US", "UK", "Australia", "Germany", "France", 
            "Japan", "Indonesia", "India", "Thailand", "Chile")
tahun <- c(2004, 2011, 2004, 2018, 2011, 2011, 2004, 2004, 2004, 2010)
kategori <- c("Sedang", "Sedang", "Ringan", "Parah", "Ringan", 
              "Sangat Parah", "Sangat Parah", "Parah", "Parah", "Sedang")

# Buat data frame
dataset_tsunami <- data.frame(Negara = negara, 
                              Korban = korban, 
                              Tahun = tahun, 
                              Kategori_Dampak = kategori)

# Simpan sebagai CSV
write.csv(dataset_tsunami, "dataset_tsunami.csv", row.names = FALSE)

# Cek data
print(dataset_tsunami)
##       Negara Korban Tahun Kategori_Dampak
## 1         US     10  2004          Sedang
## 2         UK     12  2011          Sedang
## 3  Australia      4  2004          Ringan
## 4    Germany     16  2018           Parah
## 5     France      8  2011          Ringan
## 6      Japan     50  2011    Sangat Parah
## 7  Indonesia     30  2004    Sangat Parah
## 8      India     20  2004           Parah
## 9   Thailand     40  2004           Parah
## 10     Chile     25  2010          Sedang
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.4.2
# Load dataset
dataset_tsunami <- read.csv("dataset_tsunami.csv")

# Bar Chart
ggplot(dataset_tsunami, aes(x = reorder(Negara, -Korban), y = Korban, fill = Negara)) +
  geom_bar(stat = "identity") +
  labs(title = "Jumlah Korban Tsunami per Negara", x = "Negara", y = "Jumlah Korban") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Negara dengan jumlah korban terbanyak akan berada di sebelah kiri grafik. Semakin tinggi batang, semakin banyak korban.

ggplot(dataset_tsunami, aes(x = "", y = Korban, fill = Negara)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  geom_text(aes(label = paste0(round(Korban/sum(Korban)*100, 1), "%")), 
            position = position_stack(vjust = 0.5)) +
  labs(title = "Distribusi Korban Tsunami per Negara") +
  theme_void()

Pie chart menunjukkan persentase korban di setiap negara. Jika satu negara memiliki persentase besar, berarti tsunami di sana memiliki dampak yang lebih luas.

ggplot(dataset_tsunami, aes(x = Tahun, y = Korban, group = 1)) +
  geom_line(color = "red", size = 1) +
  geom_point(size = 3, color = "blue") +
  labs(title = "Tren Jumlah Korban Tsunami dari Tahun ke Tahun", x = "Tahun", y = "Jumlah Korban") +
  theme_minimal()
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Grafik ini menunjukkan apakah ada tren peningkatan atau penurunan jumlah korban tsunami dari tahun ke tahun.

ggplot(dataset_tsunami, aes(x = Kategori_Dampak, y = Korban, fill = Kategori_Dampak)) +
  geom_bar(stat = "identity") +
  labs(title = "Jumlah Korban Berdasarkan Kategori Dampak", x = "Kategori Dampak", y = "Jumlah Korban") +
  theme_minimal()

Grafik ini menunjukkan apakah tsunami dengan kategori “Sangat Parah” memiliki korban yang jauh lebih tinggi dibanding kategori “Ringan”.