如何将一个数据帧中的不同实体分开并提取特定信息？

Question

这是我现有的数据框（df），我想提取汽车行业的人员并获取其电子邮件ID。原始数据帧包含许多条目。谁能指导我如何提取这些特定条目。

df <- data.frame(name=sample(letters[1:26],10),
                 email=sapply(1:10,function(x)     
              paste0(sample(letters[1:26],3),collapse="")),
               industry=sample(c("auto","electrical"),10,replace=TRUE))

##>df
##    name email   industry
## 1     a   eiz       auto
## 2     c   lzm electrical
## 3     d   cqp electrical
## 4     h   sqk       auto
## 5     m   rde electrical
## 6     x   izv electrical
## 7     f   lwz       auto
## 8     k   cge electrical
## 9     t   jlg electrical
## 10    q   efz       auto