R语言实战-用提取首行的方法滤重

str_phone <- book_dur_list[,.N,by="受理号码"][N>1,受理号码]
temp_list <- book_dur_list[0]
for (i in (1:length(str_phone))){
temp_list <- rbind(temp_list,
book_dur_list[受理号码==str_phone[i],][1])
}