假设数据变量是df
library(dplyr)
df %>% tbl_df() %>%
       filter(验证方式 != 2) %>%
       mutate(date = as.Date(时间)) %>%
       group_by(姓名, date) %>%
       arrange(时间) %>%
       slice(1) %>%
       write.csv(file = "out.csv")

group_by中好像要把姓名去掉吧。好像中文的变量名我的也无法识别。