a.2<-sample(1:10,100,replace=T)
b.2<-sample(1:100,100,replace=T)
a.3<-data.frame(a.2,b.2)
r<-sapply(split(a.3,a.2),function(x) which.max(x$b.2))
a.3[r,]
a.2<-sample(1:10,100,replace=T)
b.2<-sample(1:1
阅读背景：
选择r中组中变量值最大的行
来源：互联网
分享到：
