Analyze missing data

Show missingness plots.

# Visualize the missingness
infra %>% gg_miss_var()

infra %>% vis_miss(cluster = TRUE)

infra %>% gg_miss_upset()