직원 안전

HR Analytics: R로 살펴보는 직원 데이터

Ben Teusch

HR Analytics Consultant

직원 안전

안전에 집중해야 하는 이유는?

직원을 보호하기 위해
이직률 감소
산재 보상 비용 및 법률 비용 절감

두 개의 키로 조인하기

accident_data

# A tibble: 2 × 3
   year employee_id accident_time
  <dbl>       <dbl> <chr>        
1  2017           1 Morning      
2  2016           4 Afternoon

hr_data

# A tibble: 2 × 3
   year employee_id location 
  <dbl>       <dbl> <chr>    
1  2016           1 Northwood
2  2017           1 Northwood

joined_data <- left_join(hr_data, safety_data, by = c("year", "employee_id"))

joined_data

# A tibble: 2 × 4
   year employee_id location  accident_time
  <dbl>       <dbl> <chr>     <chr>        
1  2016           1 Northwood <NA>         
2  2017           1 Northwood Morning

NA 처리하기

joined_data

# A tibble: 2 × 4
   year employee_id location  accident_time
  <dbl>       <dbl> <chr>     <chr>        
1  2016           1 Northwood <NA>         
2  2017           1 Northwood Morning

joined_data %>%
   filter(accident_time == NA)   # no results

joined_data %>% 
  filter(is.na(accident_time))   # use is.na() instead

# A tibble: 1 × 4
   year employee_id location  accident_time
  <dbl>       <dbl> <chr>     <chr>        
1  2016           1 Northwood <NA>

is.na()를 사용하는 이유는?

5 == 5

TRUE

NA == NA

NA

is.na(NA)

TRUE

연습해 봅시다!

HR Analytics: R로 살펴보는 직원 데이터