Удалить дубликаты на основе даты

Question

id=c(2,3, 3, 4, 4, 4, 5, 6, 7, 8, 8) 
DateofCall=as.Date(c("2013-03-22", "2013-05-25", "2013-02-17", "2013-02-19", "2013-02- 21", "2013-04-22", "2013-06-22", "2013-03-28", "2013-08-22", "2013-03-18", "2012-12-28")) 
mydata <- data.frame(id, DateofCall) 

Я хочу, чтобы новый кадр данных, где только наблюдения для тех дублирующих кодов с последней датой остаются, как это:

id=c(2,3, 4, 5, 6, 7, 8) 
DateofCall=as.Date(c("2013-03-22", "2013-05-25", "2013-04-22", "2013-06-22", "2013-03- 28", "2013-08-22", "2013-03-18")) 
newdata <- data.frame(id, DateofCall) 

Я пытался использовать это, но получает сообщение об ошибке: test=mydata[!((duplicated(mydata$id) & max(mydata$DateofCall))), ] Есть ли альтернатива max() для переменных даты?

Любое понимание?

Answer 1

aggregate(DateofCall ~ id, mydata, max) 

будет делать трюк.

# id DateofCall 
# 1 2 2013-03-22 
# 2 3 2013-05-25 
# 3 4 2013-04-22 
# 4 5 2013-06-22 
# 5 6 2013-03-28 
# 6 7 2013-08-22 
# 7 8 2013-03-18 

Update

Эта версия поддерживает любое количество дополнительных столбцов:

subset(mydata, ave(DateofCall, id, FUN = max) == DateofCall)