WHO suicide statistics

Data downloaded form: https://www.kaggle.com/szamil/who-suicide-statistics

Date downloaded:

[1] "2018-12-22"

Loading the data.

data<-read.csv("who_suicide_statistics.csv")

Loading the Libraries

library(ggplot2)
library(dplyr)

Ommiting the NA’s

d1<-data[!is.na(data$suicides_no),]
d1<-tbl_df(d1)

Removed the Na’s then converted to df.

Number of suicides by age.

Visualizing.

g<-ggplot(d1,aes(age,suicides_no,fill=age))
a<-g+geom_bar(stat="identity")+theme(axis.text.x = element_text(angle=90))
a+xlab("Age")+ylab("Suicides")+ggtitle("number of suicides by age")+ylim(c(0,3000000))

Number of Suicides by Gender

g<-ggplot(d1,aes(d1$sex,log(d1$suicides_no)))
g+geom_bar(stat="identity",fill="#4a6084")+xlab("sex")+ylab("Suicides")+ggtitle("Number of suicides By gender")

Number of Suicides by country(Albania) after 2000.

d1<-subset(d1,d1$year>2000)
d1<-filter(d1,as.character(d1$country)=="Albania")
g<-ggplot(d1,aes(d1$country,d1$suicides_no))
g+geom_bar(stat="identity",fill="#BA55D3")+ggtitle("Number of suicides after 2000")+ylab("Suicides")+xlab("Country")

Number of suicides per year after 2000.

g<-ggplot(d1,aes(d1$year,d1$suicides_no,fill=year))
g+geom_bar(stat="identity")+ggtitle("Number of suicides per year")+xlab("Year")+ylab("Suicides")