Data Visualization Assignment Updated
Muhammad Tareque Hasan
2022-05-19
1 Loading Data
data = read.csv("Student_Mental_health.csv")2 Loading Libraries
library(gapminder)
library(gt)
library(ggpubr)
library(tidyverse)
library(gridExtra)library (ggsci)3 Data Exploration
3.1 Data Heading
head(data) Timestamp Choose.your.gender Age What.is.your.course.
1 8/7/2020 12:02 Female 18 Engineering
2 8/7/2020 12:04 Male 21 Islamic education
3 8/7/2020 12:05 Male 19 BIT
4 8/7/2020 12:06 Female 22 Laws
5 8/7/2020 12:13 Male 23 Mathemathics
6 8/7/2020 12:31 Male 19 Engineering
Your.current.year.of.Study What.is.your.CGPA. Marital.status
1 year 1 3.00 - 3.49 No
2 year 2 3.00 - 3.49 No
3 Year 1 3.00 - 3.49 No
4 year 3 3.00 - 3.49 Yes
5 year 4 3.00 - 3.49 No
6 Year 2 3.50 - 4.00 No
Do.you.have.Depression. Do.you.have.Anxiety. Do.you.have.Panic.attack.
1 Yes No Yes
2 No Yes No
3 Yes Yes Yes
4 Yes No No
5 No No No
6 No No Yes
Did.you.seek.any.specialist.for.a.treatment.
1 No
2 No
3 No
4 No
5 No
6 No3.2 tail data
tail(data) Timestamp Choose.your.gender Age What.is.your.course.
96 13/07/2020 19:08:32 Female 18 Islamic Education
97 13/07/2020 19:56:49 Female 21 BCS
98 13/07/2020 21:21:42 Male 18 Engineering
99 13/07/2020 21:22:56 Female 19 Nursing
100 13/07/2020 21:23:57 Female 23 Pendidikan Islam
101 18/07/2020 20:16:21 Male 20 Biomedical science
Your.current.year.of.Study What.is.your.CGPA. Marital.status
96 year 1 3.50 - 4.00 No
97 year 1 3.50 - 4.00 No
98 Year 2 3.00 - 3.49 No
99 Year 3 3.50 - 4.00 Yes
100 year 4 3.50 - 4.00 No
101 Year 2 3.00 - 3.49 No
Do.you.have.Depression. Do.you.have.Anxiety. Do.you.have.Panic.attack.
96 No No No
97 No Yes No
98 Yes Yes No
99 Yes No Yes
100 No No No
101 No No No
Did.you.seek.any.specialist.for.a.treatment.
96 No
97 No
98 No
99 No
100 No
101 No3.3 Data Summary
glimpse(data)Rows: 101
Columns: 11
$ Timestamp <chr> "8/7/2020 12:02", "8/7/20…
$ Choose.your.gender <chr> "Female", "Male", "Male",…
$ Age <int> 18, 21, 19, 22, 23, 19, 2…
$ What.is.your.course. <chr> "Engineering", "Islamic e…
$ Your.current.year.of.Study <chr> "year 1", "year 2", "Year…
$ What.is.your.CGPA. <chr> "3.00 - 3.49", "3.00 - 3.…
$ Marital.status <chr> "No", "No", "No", "Yes", …
$ Do.you.have.Depression. <chr> "Yes", "No", "Yes", "Yes"…
$ Do.you.have.Anxiety. <chr> "No", "Yes", "Yes", "No",…
$ Do.you.have.Panic.attack. <chr> "Yes", "No", "Yes", "No",…
$ Did.you.seek.any.specialist.for.a.treatment. <chr> "No", "No", "No", "No", "…str(data)'data.frame': 101 obs. of 11 variables:
$ Timestamp : chr "8/7/2020 12:02" "8/7/2020 12:04" "8/7/2020 12:05" "8/7/2020 12:06" ...
$ Choose.your.gender : chr "Female" "Male" "Male" "Female" ...
$ Age : int 18 21 19 22 23 19 23 18 19 18 ...
$ What.is.your.course. : chr "Engineering" "Islamic education" "BIT" "Laws" ...
$ Your.current.year.of.Study : chr "year 1" "year 2" "Year 1" "year 3" ...
$ What.is.your.CGPA. : chr "3.00 - 3.49" "3.00 - 3.49" "3.00 - 3.49" "3.00 - 3.49" ...
$ Marital.status : chr "No" "No" "No" "Yes" ...
$ Do.you.have.Depression. : chr "Yes" "No" "Yes" "Yes" ...
$ Do.you.have.Anxiety. : chr "No" "Yes" "Yes" "No" ...
$ Do.you.have.Panic.attack. : chr "Yes" "No" "Yes" "No" ...
$ Did.you.seek.any.specialist.for.a.treatment.: chr "No" "No" "No" "No" ...3.4 Data conversion
names(data) [1] "Timestamp"
[2] "Choose.your.gender"
[3] "Age"
[4] "What.is.your.course."
[5] "Your.current.year.of.Study"
[6] "What.is.your.CGPA."
[7] "Marital.status"
[8] "Do.you.have.Depression."
[9] "Do.you.have.Anxiety."
[10] "Do.you.have.Panic.attack."
[11] "Did.you.seek.any.specialist.for.a.treatment."data$Timestamp=as.factor(data$Timestamp)
data$Choose.your.gender=as.factor(data$Choose.your.gender)
data$What.is.your.course.=as.factor(data$What.is.your.course.)
data$Your.current.year.of.Study=as.factor(data$Your.current.year.of.Study)
data$What.is.your.CGPA.=as.factor(data$What.is.your.CGPA.)
data$Marital.status=as.factor(data$Marital.status)
data$Do.you.have.Depression.=as.factor(data$Do.you.have.Depression.)
data$Do.you.have.Anxiety.=as.factor(data$Do.you.have.Anxiety.)4 Data visualization
4.1 Histogram
gghistogram(data,x="Age", bins = 15 , color = "#5233FF", fill = "#5233FF", add = "mean" , rug = TRUE)
4.2 qq Plot
ggqqplot(data, x = "Age", color = "#5233FF")
4.3 Boxplot
ggboxplot(data,x = "What.is.your.CGPA.", y = "Age",color = "#9732A1", fill = "#9732A1", orientation ="horiz")
4.4 Violin plot
ggviolin(data, x = "What.is.your.CGPA.", y = "Age", color = "#9732A1", fill = "#9732A1", orientation = "horiz")
4.5 Bar chart
ggbarplot(data, x = "Marital.status", y = "Do.you.have.Depression.", color = "#53B61A", fill = "#53B61A" )
4.6 Pie chart
4.7 Line plot
ggline(data,x="Age", y="Choose.your.gender")