分类汇总，按年和月分类，day最大的取那个
aggregate(Data,by=list('year','month'),max(day))

谢谢！这是我的数据格式图片，你看需要怎么在你的程序上修改呢

> aggregate(a,by=list('year','month'),max(day))
错误于match.fun(FUN) : 找不到对象'day'
> aggregate(a,by=list('year','month'),max("day"))
错误于get(as.character(FUN), mode = "function", envir = envir) :
  没有状态为"function"的"day"目标对象

假设你的TrdDt是Date，转换成年月日 ,数据是D1

  library(lubridate)
D1$Date<- ymd(D1$Date)
  D1$year<-year(D1$Date)
  D1$day<-day(D1$Date)
  D1$month<-month(D1$Date)

好像不是分类汇总，你自己看下，先把年月选出来，在选day最大的那个记录。