<br />
dat = read.csv(textConnection('<br />
name,score<br />
aa,70<br />
aa,90<br />
aa,60<br />
bb,40<br />
cc,80<br />
bb,100<br />
cc,60<br />
'));</p>
<p># 方法1<br />
tapply(dat$score, dat$name, max)</p>
<p># 方法2<br />
library(plyr)<br />
ddply(dat,.(name),function(d){max(d$score)})</p>
<p># 方法3<br />
library(data.table)<br />
dat <- data.table(dat)<br />
dat[,list(max=max(score)),by="name"]</p>
<p>
</p>
