wstawianie niestandardowego tekstu do ggplot2

Question

Mam graf ggplot, który chciałbym wstawić niestandardowy ciąg poniżej 0 jako "Wewnątrz" i powyżej 0 jako "Wstrzymany".

Robię to:

ggplot(z, aes(Date, Breach1/60, group=Jobs, label=c("Within SLA", "Breached SLA"))) + 
geom_line(size=1) + 
theme_bw() + ylab("Hours") + xlab("Date") + opts(title="Jobs") + 
geom_hline(yintercept=0, color="red", size=2) + geom_text(hjust=0, vjust=3) 

Wydaje umieścić tekst w każdym miejscu. Lubię umieszczać jeden tekst powyżej zera i jeden tekst poniżej wartości zerowej. Jakieś pomysły?

Answer 1

Jesteś po annotate:

ggplot(z, aes(Date, Breach1/60, group=Jobs)) + 
geom_line(size=1) + 
theme_bw() + ylab("Hours") + xlab("Date") + opts(title="Jobs") + 
geom_hline(yintercept=0, color="red", size=2) + 
annotate("text", label = "Within SLA", x = 1, y = 2) + 
annotate("text", label = "Breached", x = 1, y = -2)