library(naniar)

vis_dat(team_event_type_summary)

n_miss(team_event_type_summary)

miss_var_summary(team_event_type_summary)

#summary table
miss_var_table(team_event_type_summary)

team_event_type_summary %>% group_by(event_month) %>% miss_var_summary()

gg_miss_var(team_event_type_summary, facet=event_month)

# data shadow - _NA or !NA - bind two together

bind_shadow(team_event_type_summary) %>% glimpse()

bind_shadow(team_event_type_summary) %>%
  ggplot(aes(x=team, y=type)) + geom_miss_point()


library(visdat)

vis_dat(traffic_watch_summary_days)