Lär känna personalomsättningen

HR-analys: Förutsäga personalomsättning i R

Anurag Gupta

People Analytics Practitioner

Förstå datamängden

glimpse(org)

Rows: 2,291
Columns: 12
$ emp_id            <chr> "E11061", "E1031", "E6213", "E5900", "E3044"...
$ status            <chr> "Inactive", "Inactive", "Inactive", "Inactiv...
$ turnover          <int> 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1,...
$ location          <chr> "New York", "New York", "New York", "New Yor...
$ level             <chr> "Analyst", "Analyst", "Analyst", "Analyst", ...
$ date_of_joining   <chr> "22-03-2012", "09-03-2012", "06-01-2012", "2...
$ last_working_date <chr> "11-09-2014", "05-06-2014", "30-04-2014", "0...
$ gender            <chr> "Male", "Female", "Female", "Female", "Femal...
$ department        <chr> "Customer Operations", "Customer Operations"...
$ mgr_id            <chr> "E1712", "E10524", "E4443", "E3638", "E3312"...
$ cutoff_date       <chr> "31-12-2014", "31-12-2014", "31-12-2014", "3...
$ emp_age           <dbl> 22.49, 22.42, 22.24, 22.32, 22.14, 22.67, 22...

Beräkna omsättningsgraden

$$ \text{Omsättningsgrad} = \frac{\text{Antal anställda som slutat }}{\text{Totalt antal anställda}} $$

eller

$$ \text{Omsättningsgrad} = \frac{\text{Antal ettor }}{\text{Antal ettor + Antal nollor }} = {\text{mean(turnover)}} $$

där

$$ \text{1 = Inaktiv ; 0 = Aktiv} $$

Räkna aktiva och inaktiva anställda

# Count Active and Inactive employees

org %>% 
  count(status)

# A tibble: 2 x 2
  status      n
  <fct>     <int>
1 Active    1881
2 Inactive   410

Beräkna omsättningsgraden

# Calculate average turnover rate 

org %>% 
    summarize(turnover_rate = mean(turnover))

      turnover_rate
1         0.1789612

Beräkna omsättningsgraden per nivå

df_level <- org %>%  
    group_by(level) %>% 
    summarize(turnover_level = mean(turnover))

df_level

# A tibble: 7 x 2
  level             turnover_level
  <fct>                      <dbl>
1 Analyst                   0.215 
2 Assistant Manager         0.0365
3 Director                  0     
4 Manager                   0.0435
5 Senior Manager            0     
6 Specialist                0.149 
7 Vice President            0

Visualisera omsättningstrender med ggplot

# Visualize the results
library(ggplot2)
ggplot(df_level, aes(x = level, y = turnover_level)) + 
    geom_col()

Nu kör vi en övning!

HR-analys: Förutsäga personalomsättning i R