Garder valeur maximale

Bonjour,
Je dispose d'un dataframe comme celui ci : (je mets aussi le code R d'exemple du dataframe car je n'arrive pas à afficher correctement sous forme de tableau)

id n_emploi

1 1

1 2

1 3

2 1

2 2

3 1

3 2

3 3

3 4

Code:

emploi<-data.frame(id=c(1,1,1,2,2,3,3,3,3),n_emploi=c(1,2,3,1,2,1,2,3,4))

Je voudrais garder le numéro d'emploi (n_emploi) le plus élevé pour chaque individu et le mettre dans une nouvelle colonne et donc obtenir quelque chose comme cela :

id n_emploi nb

1 1 3

1 2 3

1 3 3

2 1 2

2 2 2

3 1 4

3 2 4

3 3 4

3 4 4

Code:

emploi<-data.frame(id=c(1,1,1,2,2,3,3,3,3),n_emploi=c(1,2,3,1,2,1,2,3,4),nb=c(3,3,3,2,2,4,4,4,4))

J'ai essayé cette fonction :

Code:

emploi[emploi$n_emploi==max(emploi$n_emploi),]

Mais ça garde le maximum tout sujet confondu et non pas pour chaque sujet ...

Merci d'avance pour votre aide.