Ajouter une légende dans un histogramme (réseau)

Question

Je suis nouveau dans la programmation R et je voudrais faire un histogramme sur le sexe et les travaux correspondants.

Le problème que j'ai, c'est que je ne peux pas ajouter une légende dans le diagramme.

De plus, je voudrais en haut de chaque barre pour ajouter le numéro de fréquence.

Pourrais-tu m'aider s'il te plait ?

library(lattice)
histogram(~ job | sex, col=rainbow(7), main="", xlab = "", ylab="(%)")

PS J'essaie avec la fonction légende mais j'obtiens cette erreur:

Erreur dans strwidth (légende, unités = "utilisateur", cex = cex): Plot.New n'a pas encore été appelé