保留最大那个样本

请教，如何保留每个地区年度wage取值最大的样本，谢谢！

year	id	wage
2000	1	23
2000	2	1
2000	3	45
2000	4	22
2000	5	11
2000	6	87
2001	1	45
2001	2	33
2001	3	45
2001	4	20
2001	5	11
2001	6	74

*一、用sort排序
clear all
input year        id        wage
2000        1        23
2000        2        1
2000        3        45
2000        4        22
2000        5        11
2000        6        87
2001        1        45
2001        2        33
2001        3        45
2001        4        20
2001        5        11
2001        6        74
end

gsort year -wage
bys year:keep if _n==1

*二、统计最大值
clear
input year        id        wage
2000        1        23
2000        2        1
2000        3        45
2000        4        22
2000        5        11
2000        6        87
2001        1        45
2001        2        33
2001        3        45
2001        4        20
2001        5        11
2001        6        74
end
bys year:egen maxwage=max(wage)
keep if wage==maxwage

厉害！非常感谢！！