Assignment 6: Data Visualization

Histogram Distrbition: Employee Satisfaction

plot_ly(hr, x = ~satisfaction_level, type = "histogram") %>%
  layout(title = "Most Employees are satisfaction level (0.60)",
         xaxis = list(title = "Satisfaction Level"),
         yaxis = list(title = "Number of Employees"))

• Majority of the graph leans towards the higher end of the histogram (0.6-1).
• Meaning Majority of Employees are satisfied
• There is a spike in low satisfaction with about 700 employees having a satisfaction level of 0.1.

Box Plot: Last Evaluation Scores

library(plotly)
library(readr)

plot_ly(hr, y = ~last_evaluation, type = "box") %>%
  layout(title = "Evaluation Scores",
         xaxis = list(title = "Employees"),
         yaxis = list(title = "Evaluation Scores"))

• The Box plot concludes that the mean evaluation 0.72. So the typical employee performance for the company is 0.72
• Looking at the whiskers we can see that the the box plot is skews the left.

Comparative Box Plot: Monthly Hours by Department

library(plotly)
library(readr)

plot_ly(hr, x = ~Department, y = ~average_montly_hours, type = "box") %>%
    layout(title = "Monthly Hours by Department",
           xaxis = list(title = "Department"),
           yaxis = list(title = "Monthly Hours"))

• The Comparative Box plot above compares all the departments in the company by using box plots.
• The Departments have similar monthly hours.
  
• With the lowest median being 197 (HR) and the highest median being 204 (Management).
• Based on the comparative box plot, we can conclude that all departments work equally hard.

Pie chart: Attirition by Salary Level

• The pie chart above displays employee salary by attraction by separating the salaries into three categories: low, medium and high.
• The pie chart Is a good way to visualize how the salary levels in the company are distributed.
• By looking at the pie chart we can see that the majority of employees have a low salary level with 60.8% and Only 2.3% of employees have a high level Salary.
• This shows that the company has large economic divide.

Bar Plot: Average Satisfaction Level

average_satisfaction <- hr %>%
  group_by(Department) %>%
  summarise(average_satisfaction_level = mean(satisfaction_level, na.rm = TRUE), .groups = 'drop')

plot_ly(average_satisfaction, x = ~Department, y = ~average_satisfaction_level, type = 'bar') %>%
  layout(title = "Average Satisfaction Level by Department",
         xaxis = list(title = "Department"),
         yaxis = list(title = "Average Satisfaction Level"))

• The bar graph above displays the average satisfaction level from each department.

• Using this bar graph you can visually see how each department’s satisfaction level ranges from other departments.

• The different in satisfaction levels is minimal, indicating that all departments are similarly satisfied.