Ajouter du texte à ggplot

(mise à jour)
J'ai ggplot comme ça, mais alors l'axe des x Date de l'échelle:

g1 <- ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar()

Au-dessus de deux bars (permet de sayVS2 et SI, mais dans mon graphique, il est une date), je veux mettre une étiquette de texte au-dessus des barres à heigt 13.000.

J'ai essayé beaucoup de choses, mais c'est ce qui est le plus proche:
C'est ce que j'ai essayé sur mon graphique avec la Date de l'axe
g1 + geom_text(aes(comme.Date("2014-10-05"), 13000), label="bateau")

mais cela ajoute un seul pour le graphique et dès que j'ai essayer de l'étendre, par exemple avec

g1 + geom_text(aes(c(as.Date("2014-10-05"),as.Date("2014-10-20")) , 13000), label=c("boat", "train"))

puis j'obtiens l'erreur:

Erreur: l'Esthétique doit être de longueur, ou de la même longueur que le
dataProblems:c (.Date("2014-10-05"), comme.Date("2014-10-20"))

J'ai aussi essayé de lire le texte et des étiquettes à partir d'un dataframe (oefen), où j'ai utilisé le même nom que la parcelle d'origine

g1 + geom_text(data=oefen, aes(x=newdat, y=Number, label=oefen$labs, fill=1))

Je reçois le message d'erreur

Erreur: valeur Continue fourni aux discrètes à l'échelle

J'ai essayé beaucoup d'autres solutions, mais ne peut pas trouver la réponse. Ce qui me manque?

source d'informationauteur Rosanne