คำนวณอายุงานของพนักงาน

ในแบบฝึกหัดนี้ จะได้คำนวณอายุงานของพนักงานในองค์กร ซึ่งหมายถึงระยะเวลาที่พนักงานแต่ละคนทำงานหรือเคยทำงานอยู่ในองค์กร

ในการหาผลต่างของเวลาระหว่างวันที่สองวัน สามารถใช้ฟังก์ชัน interval() และ time_length() จากไลบรารี lubridate ได้ โดยคอลัมน์วันที่ที่เกี่ยวข้องได้ถูกแปลงจากรูปแบบ character เป็น date แล้ว

ขอให้จำไว้ว่า cutoff_date ใช้สำหรับคำนวณ tenure ของพนักงานที่มีสถานะ Active ส่วน last_working_date ใช้สำหรับพนักงานที่มีสถานะ Inactive

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

HR Analytics: การพยากรณ์การลาออกของพนักงานด้วย R

ดูคอร์ส

คำแนะนำการฝึกหัด

คำนวณ tenure ของพนักงานเป็นหน่วยปี โดยใช้ last_working_date, date_of_joining และ cutoff_date
สร้าง box plot เพื่อแสดงการกระจายของอายุงานสำหรับพนักงานที่มีสถานะ Active และ Inactive

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# Add tenure
emp_tenure <- emp_jhi %>%
  mutate(tenure = ifelse(status == "Active", 
                         time_length(interval(date_of_joining, ___), 
                                     "years"), 
                         ___(___(date_of_joining, ___), 
                                     "years")))

# Compare tenure of active and inactive employees
ggplot(emp_tenure, aes(x = ___, y = ___)) + 
  geom_boxplot()

แก้ไขและรันโค้ด