导入并连接事故数据
来到最后一章了！恭喜您坚持到这里。本章的情境是：一位高级管理者认为今年生产基地的工伤事故有所增加。她希望您确认这一点；如果确有其事，请进一步分析可能导致上升的原因。
请先导入 HR 数据和事故数据集。然后将它们连接起来，并添加一个 had_accident 变量，便于分析事故发生率。
本练习是课程的一部分
HR 分析：用 R 探索员工数据
练习说明
- 使用
read_csv()导入"hr_data_2.csv"和"accident_data.csv"。分别赋值给hr_data和accident_data。 - 使用
left_join()将事故数据添加到 HR 数据中。请在员工 ID 和年份两个键上进行连接。 - 在连接之后使用
%>%，再用mutate()添加had_accident变量：当accident_type为NA时取 0，否则取 1。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Load the packages
library(readr)
library(dplyr)
# Import the data
hr_data <- ___
accident_data <- ___
# Create hr_joined with left_join() and mutate()
hr_joined <- ___ %>%
mutate(___)
hr_joined