quick diagnostic of INE COD data

ine_diagnostics.R

# https://www.ine.es/jaxiT3/Tabla.htm?t=7947
library(tidyverse)
ine <- read_tsv("Data/INE7947.csv",locale = locale(grouping_mark = "."))

ine |> 
  rename(cause = `Cause of death`) |> 
  mutate(cause = if_else(cause=="001-102  I-XXII.All causes","All",cause)) |> 
  filter(!grepl("-",cause),
         Age != "All ages") |> 
   mutate(
    Age = if_else(Age == "Under 1 year old" ,"0",Age),
    Age = parse_number(Age)) |> 
  group_by(Periodo, Sex, Age) |> 
  mutate(N = Total[cause == "All"],
         margin = sum(Total[cause!="All"]),
         UNK = N - margin,
         garbage = sum(Total[cause%in% c("087  Senility", 
                             "057  Heart failure")]),
         bad = UNK + garbage,
         pgarbage = garbage / N,
         pUNK = UNK / N,
         pbad = bad / N) |> 
  ungroup() |> 
  filter(cause == "All",
         Periodo < 2020) |> 
  ggplot(aes(x=Periodo, y = pgarbage, color = Sex)) +
  geom_line() +
  facet_wrap(~Age) +
  theme_minimal()