Please use R studio to determine employee attrition:

• Is there a relationship employee leaving the company and performance rating? (use the file provided below)

Please create a Summary Table & Data Visualization(I need help with the bold section) :

employee_data %>% group_by(left_company) %>%

summarise(n_employees = n(),.........................Please fill in.......................)

ggplot(data = employee_data, aes(................please fill in x + y.............)) + geom_.............. + facet_wrap............... + labs.........

***********Example**********:

left_company	performance_rating
Yes	Meets Expectations
No	Exceeds Expectations
Yes	Minimally Effective
No	Exceptional
No	Exceeds Expectations
No	Meets Expectations
No	Meets Expectations
No	Exceptional
No	Meets Expectations
No	Exceeds Expectations
No	Exceeds Expectations
No	Exceptional
No	Meets Expectations
No	Meets Expectations
Yes	Minimally Effective
No	Meets Expectations
No	Meets Expectations
No	Exceeds Expectations
No	Exceeds Expectations
No	Meets Expectations
No	Meets Expectations
Yes	Minimally Effective
No	Exceeds Expectations
No	Meets Expectations
Yes	Meets Expectations
No	Meets Expectations
Yes	Meets Expectations
No	Exceeds Expectations
No	Exceptional
No	Exceeds Expectations
No	Meets Expectations
No	Meets Expectations
No	Not Effective
Yes	Minimally Effective
Yes	Minimally Effective
No	Meets Expectations
Yes	Minimally Effective
No	Meets Expectations
No	Meets Expectations
No	Meets Expectations
No	Exceptional
No	Meets Expectations
Yes	Meets Expectations
No	Exceeds Expectations
No	Not Effective
Yes	Not Effective
No	Meets Expectations
No	Minimally Effective
No	Exceeds Expectations
No	Exceptional
Yes	Not Effective
Yes	Minimally Effective
No	Exceeds Expectations
No	Exceeds Expectations
No	Meets Expectations
No	Meets Expectations
No	Exceeds Expectations
No	Meets Expectations
No	Exceptional

While importing the data csv file, the data type may not match with the data type given above. Please convert them to appropriate data type, before doing any analysis Exploratory Data Analysis Executives at this company have hired you as a data science consultant to identify the factors that lead to employees leaving their company. They would like for you to do an initial data analysis that is able to provide the insights on the likelihood of an employee leaving their company to make recommendations on how to minimize this behavior. Specifically, the broad questions that the executive team is trying to answer include: 1. What are the factors that contribute to employees leaving the company based on summary statistics? 2. Without running any predictive models, just by using plots, can you provide insights for the top management? The goal of your analysis should be discovering which variables drive the differences between employees who do and do not leave the company. You must think of at least 6 relevant questions that explore the relationship between left_company and the other variables in the employee data set. You must answer cach question and provide supporting data summaries with either a summary data frane (tising dplyr/tidyr) or a plot (using ggplot) or both. In total, you must have a minimum of 3 plots and 3 summary data frames for the exploratory data analysis section. Among the plots you produce, you must have at least 3 different types (ex box plot, bar chart, histogram, heat map, etc...) See the example question below. Is there a relationship between employees leaving the company and their current salary? Answer: Yes, the data indicates that employees who leave the company tend to have lower salaries than employees who do not. Among the 237 employees that left the company, the average wage was $76,625. The pay is over $20,000 less than the average salary of employees who did not leave the company. Among the employees who did not leave the company, only 10% have a salary that is less than or equal to $60,000. When looking at employees who did leave the company, this increases to 34%. # Summary Table employee_data %>% group_by (left_company) %>% summarise(n_employees = n(), min_salary - min (salary), avg_salary - mean (salary), max_salary = max (salary), sd_salary + sd (salary), pct_less_60k - mean (salary % group_by (left_company) %>% summarise(n_employees = n(), min_salary - min (salary), avg_salary - mean (salary), max_salary = max (salary), sd_salary + sd (salary), pct_less_60k - mean (salary