Kategorik dan Numerik

Tingkat Kematian Covid-19

library(ggplot2)
library(readxl)

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"
  )

#Pada tahun 2021 memiliki penurunan…

Analisis

Pada tahun 2021 terjadi penurunan tingkat kematian dibandingkan tahun 2020. Kemudian, tingkat kematian kembali meningkat pada tahun 2022 dan 2023.

Sumber: World Health Organization (WHO).

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"
  )

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

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