SUICIDE

knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(ggplot2)
library(readxl)
library(ggeasy)
library(patchwork)
suicide_statistics <- read_csv("who_suicide_statistics.csv")

c1 <- suicide_statistics %>% 
  mutate_at(5, ~replace_na(.,0)) %>% 
  group_by(year, sex) %>% 
  summarise(suicide = sum(suicides_no)) %>% 
  mutate(yr = as.integer(year),
         suicide = as.integer(suicide)) %>% 
  ggplot(aes(yr, suicide))+
  geom_col(aes(fill = sex), position = "dodge")+ #
  theme_bw(base_size = 10)+
  scale_x_continuous(expand = c(0,0),
                     limits = c(1978, 2017),breaks = seq(1978, 2017, by = 4))+
  scale_y_continuous(expand = c(0,0))+
  scale_fill_brewer(palette = "Dark2")+
  labs(subtitle = "Trends in suicides among male and female",
       x = "Year", y = "No. of suicides")+
  theme(legend.position = "none",
        plot.title = element_text(face = "bold"))+
  easy_rotate_x_labels()+
  easy_all_text_color("forestgreen")


c2 <- suicide_statistics %>% 
  mutate_at(5, ~replace_na(.,0)) %>% 
  group_by(sex, age) %>% 
  summarise(suicide = sum(suicides_no)) %>% 
  mutate(suicide = as.integer(suicide)) %>% 
  ggplot(aes(age, suicide))+
  geom_col(aes(fill = sex), position = "dodge")+ #
  theme_bw(base_size = 10)+
  scale_y_continuous(expand = c(0,0))+
  scale_fill_brewer(palette = "Dark2")+
  labs(x = "Age group", y = "No. of suicides", 
       caption = "Source:https://www.kaggle.com/datasets/szamil/who-suicide-statistics")+
  theme(legend.position = "bottom",
        plot.title = element_text(face = "bold"))+
  easy_all_text_color("forest green")


c3 <- suicide_statistics %>% 
  mutate_at(5, ~replace_na(.,0)) %>% 
  group_by(country, sex) %>% 
  summarise(suicide = sum(suicides_no)) %>%
  filter(suicide > 200000) %>% 
  ggplot(aes(sex, suicide))+
  geom_col(aes(fill = sex), position = "dodge")+ #
  theme_bw()+
  scale_y_continuous(labels = scales::comma)+
  scale_x_discrete(expand = c(0,0))+
  scale_fill_brewer(palette = "Set1", labels = c("Female", "Male"))+
  labs(title = "WHO Suicide Statistics, 1979-2016", caption = "Source:https://www.kaggle.com/datasets/szamil/who-suicide-statistics", 
       x = "Sex", y = "No. of suicides", subtitle = "Countries with the highest suicides")+
  theme(legend.position = "bottom", legend.title = element_blank(),
        plot.title = element_text(hjust = 0.5))+
  easy_all_text_color("Black")+
  facet_wrap(~country, scales = "free_y")+
  geom_text(aes(y = suicide, label = suicide),
            vjust = 0.5, size = 3, color = "black")


(c1)/(c2) + plot_layout(ncol=1) +
  plot_annotation(title = "WHO Suicide Statistics, 1979-2016", tag_levels = "A") & 
  theme(plot.title = element_text(hjust = 0.5), 
        plot.tag = element_text(size = 25, face = "bold"))


c3 + plot_layout(ncol=1) +
  plot_annotation(tag_levels = "A") & 
  theme(plot.title = element_text(hjust = 0.5), 
        plot.tag = element_text(size = 25, face = "bold"))