ggplot2-Destiny-plot.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_density(stat = "identity", alpha = 0.5, color = "darkblue") + 
  geom_point(color = "red", size = 3) +
  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:world health organization (WHO)

library(readxl)
data <- read_excel("Kematian_COVID19_Indonesia_WHO.xlsx")

## New names:
## • `` -> `...2`
## • `` -> `...3`