根据两列中的一组条件删除重复项（时间数据）

Question

以下是包含考勤时间表的数据集示例。我想保留最早的punch_in 和最后的punch_out 的记录（即id-1、name-sam、punch_in -8/6/2015 8:00:00 和punch_out-8/6/2015 16:05:00） .如何删除 R 中的其他重复条目？

id<-c(1,1,1,1,2,3,4)
name<-c("sam","sam","sam","sam","jack","john","jude")
sex<-c("M","M","M","M","M","M","F")
punch_in<-c("8/6/2015 8:00:00","8/6/2015 8:05:00","8/6/2015 8:00:00","8/6/2015 8:05:00","8/6/2015 8:06:00","8/6/2015 7:59:00","8/6/2015 8:00:00")
punch_out<-c("8/6/2015 16:00:00","8/6/2015 16:00:00","8/6/2015 16:05:00","8/6/2015 16:05:00","8/6/2015 16:00:00","8/6/2015 16:05:00","8/6/2015 16:05:00")
data<-as.data.frame(cbind(id,name,sex,punch_in,punch_out))

Answer 1

id<-c(1,1,1,1,2,3,4)
name<-c("sam","sam","sam","sam","jack","john","jude")
sex<-c("M","M","M","M","M","M","F")
punch_in<-c("8/6/2015 8:00:00","8/6/2015 8:05:00","8/6/2015 8:00:00","8/6/2015 8:05:00","8/6/2015 8:06:00","8/6/2015 7:59:00","8/6/2015 8:00:00")
punch_out<-c("8/6/2015 16:00:00","8/6/2015 16:00:00","8/6/2015 16:05:00","8/6/2015 16:05:00","8/6/2015 16:00:00","8/6/2015 16:05:00","8/6/2015 16:05:00")
data<-as.data.frame(cbind(id,name,sex,punch_in,punch_out))

library(dplyr)

data %>%
  group_by(id, name, sex) %>%                 # for each combination of id, name, sex
  summarise(punch_in = first(punch_in),       # keep the first punch in
            punch_out = last(punch_out)) %>%  # keep the last punch out
  ungroup()                                   # forget the grouping

# # A tibble: 4 x 5
#   id    name  sex   punch_in         punch_out        
#   <fct> <fct> <fct> <fct>            <fct>            
# 1 1     sam   M     8/6/2015 8:00:00 8/6/2015 16:05:00
# 2 2     jack  M     8/6/2015 8:06:00 8/6/2015 16:00:00
# 3 3     john  M     8/6/2015 7:59:00 8/6/2015 16:05:00
# 4 4     jude  F     8/6/2015 8:00:00 8/6/2015 16:05:00

这假设行是按日期排序的，因此对于每个 id，第一个是最早的，最后一个是最近的。