Case-II: Lifestyle and Sleeping Quality

Part A General Summary

#Reading the file 
sleep<-read.csv("sleep.csv")

#Types of Jobs at a study 
unique(sleep$occupation)

 [1] "Software Engineer"    "Doctor"               "Sales Representative"
 [4] "Teacher"              "Nurse"                "Engineer"            
 [7] "Accountant"           "Scientist"            "Lawyer"              
[10] "Salesperson"          "Manager"             

#Types of Sleep disorders in the study 
unique(sleep$sleep_disorder)

[1] "None"        "Sleep Apnea" "Insomnia"   

#Range of sleep quality 
sort(unique(sleep$sleep_quality))

[1] 4 5 6 7 8 9

#Sample size 
print(sample_size<-length(sleep$gender))

[1] 374

#Mean of sleep time
print(mean_sleepdur<-mean(sleep$sleep_duration))

[1] 7.132086

boxplot(sleep$age,horizontal =TRUE,col="lightblue",main="Age of sample")

sleepocdu<-aggregate( sleep_duration ~ occupation, data = sleep, FUN = mean)
sleepocdu <- sleepocdu[order(-sleepocdu$sleep_duration),]
print(sleepocdu)

             occupation sleep_duration
3              Engineer       7.987302
4                Lawyer       7.410638
1            Accountant       7.113514
6                 Nurse       7.063014
2                Doctor       6.970423
5               Manager       6.900000
10    Software Engineer       6.750000
11              Teacher       6.690000
8           Salesperson       6.403125
9             Scientist       6.000000
7  Sales Representative       5.900000

Engineer is with the highest duration of sleep on average