Assignment 7

library(readr)
library(ggplot2)
hr <- read_csv('https://raw.githubusercontent.com/aiplanethub/Datasets/refs/heads/master/HR_comma_sep.csv')

Correlation 1

## 
##  Pearson's product-moment correlation
## 
## data:  hr$number_project and hr$average_montly_hours
## t = 56.219, df = 14997, p-value < 2.2e-16
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  0.4039037 0.4303411
## sample estimates:
##       cor 
## 0.4172106

• P-Value is very small that shows there is a correlation between Number of Projects and Average Monthly Hours.
• The correlation is positive and large.
• The more Hours spent the more Number of Projects.

## `geom_smooth()` using formula = 'y ~ x'

Correlation 2

## 
##  Pearson's product-moment correlation
## 
## data:  hr$number_project and hr$time_spend_company
## t = 24.579, df = 14997, p-value < 2.2e-16
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  0.1813532 0.2121217
## sample estimates:
##       cor 
## 0.1967859

• The P value is small that shows a correlations between Number of projects and time spent.
• The correlation is a weak positive correlation.
• The more number or hours, the more number of project.

## `geom_smooth()` using formula = 'y ~ x'

Correlation 3

## 
##  Pearson's product-moment correlation
## 
## data:  hr$satisfaction_level and hr$time_spend_company
## t = -12.416, df = 14997, p-value < 2.2e-16
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.11668153 -0.08499948
## sample estimates:
##        cor 
## -0.1008661

-The P-value is small and shows there is a correlation between the Satisfaction Level and Time Spend Company. -There is a weak negative Correlation. -The more time spend at company, the less level of satisfaction.

## `geom_smooth()` using formula = 'y ~ x'

Correlation 4

## 
##  Pearson's product-moment correlation
## 
## data:  hr$average_montly_hours and hr$time_spend_company
## t = 15.774, df = 14997, p-value < 2.2e-16
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  0.1119801 0.1434654
## sample estimates:
##       cor 
## 0.1277549

• The P- Value is small and the correlation between Average Monthly Hours and Time spend at the company.
• The correlation is positive but its weak.
• Employees who work more monthly hours tend to stay at the company longer.

## `geom_smooth()` using formula = 'y ~ x'