R寻找每一个亚组的最大值

#find max V2 in each V1,keep duplicated max
eachMax<-function(data,v1,v2){
       data$eachMax<-"."
       for (factor in unique(data$v1)){
              subv2<-subset(data,v1==factor)$v2
              data$eachMax[data$v1==factor&data$v2==max(subv2)]<-"max"
       }
       data<-subset(data,eachMax=="max")
       return(data)
}


#find max V2 in each V1,do not keep duplicated max, one max for each factor
eachMax<-function(data,v1,v2){
       maxdata<-data.frame()
       for (factor in unique(data$v1)){
              factor.maxline<-subset(data,v1==factor)[sample(which.max(subset(data,v1==factor)$v2),1),]
              maxdata<-rbind(maxdata,factor.maxline)
       }
       return(maxdata)
}

data=data.fram

v1=colname of factor

v2=colname of value