Employee generated anonymous survey of salary information.
A data frame with 466 rows and 9 variables.
Time data was entered
Specifies employment status.
Current job title.
Current salary (in USD).
Frequency with levels year, hour, week.
Raise given July 2020.
Other information submitted by employee.
Current office of employment.
Most recent review performance rating.
library(ggplot2) library(dplyr) plot_data <- blizzard_salary %>% mutate(annual_salary = case_when( salary_type == "week" ~ current_salary * 52, salary_type == "hour" ~ current_salary * 40 * 52, TRUE ~ current_salary )) ggplot(plot_data, aes(annual_salary)) + geom_histogram(binwidth = 25000, color = "white") + labs( title = "Current Salary of Blizzard Employees", x = "Salary", y = "Number of Employees" )