ggplot2-Tugas.R

library(ggplot2)
data_percobaan <- data.frame(
  Tahun = c("2020", "2021", "2022", "2023"),
  Tingkat_kematian = c(202.138, 144.009, 160.094, 161.879)
)

 print(data_percobaan)

##   Tahun Tingkat_kematian
## 1  2020          202.138
## 2  2021          144.009
## 3  2022          160.094
## 4  2023          161.879

ggplot(
  data = data_percobaan, aes(x = Tahun, y = Tingkat_kematian)) + 
  geom_col(fill = "steelblue", width = 0.8) + geom_text(aes(label = Tingkat_kematian), vjust = -0.5) + labs(
    title = "Tingkat Kematian Covid-19", 
    x = "Tahun",
    y = "Tingkat Kematian"
  )

#Total akumulatif angka kematian akibat COVID-19 di Indonesia dari awal tahun 2020 hingga akhir tahun 2023 secara resmi tercatat sebanyak 161.879 jiwa berdasarkan data Kementerian Kesehatan Republik Indonesia.
#Pada tahun 2021 memiliki penurunan dari tahun sebelumnya,lalu kemudian naik lagi di tahun2 berikutnya
#Sumber:https://www.halodoc.com/artikel/begini-kronologi-virus-corona-masuk-indonesia
#       https://jdih.kemenkoinfra.go.id/berita/keppres-172023-berakhirnya-status-pandemi-covid-19-di-indonesia