Dodaj tekst ggplot

Question

(aktualizacja) Mam ggplot tak, ale wtedy oś x Data skalowane:

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

Powyżej dwóch barów (pozwala sayVS2 i IF, ale w moim wykresie jest to data) Chcę umieścić etykietę tekstową nad taktami o wysokości 13 000.

próbowałem wiele rzeczy, ale to, co było najbliżej: To co próbowałem w moim wykresie z Datą oś G1 + geom_text (AES (as.Date („05.10.2014”) , 13000), label = "łódź")

ale to tylko dodaje jeden do wykresu i jak tylko próbuję go przedłużyć, na przykład z

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

następnie pojawia się błąd:

Error: Aesthetics must either be length one, or the same length as the dataProblems:c(as.Date("2014-10-05"), as.Date("2014-10-20"))

Próbowałem również do zapoznania się z tekstu i etykiet z dataframe (oefen), gdzie użyłem tych samych nazw jako oryginalny działki

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

pojawia się błąd

Error: Continuous value supplied to discrete scale

Próbowałem wiele innych rozwiązań , ale nie może znaleźć odpowiedzi. czego mi brakuje?

Answer 1

Rozważ skorzystanie z annotate(), aby umieścić dowolny tekst w wybranym miejscu na działce. Zmienne czynnikowe, podobnie jak w przypadku współczynnika jasności na osi X, mają liczbę dla każdego poziomu, więc można użyć tej liczby do zlokalizowania tekstu. Zakładam, zmienne pory ten sam wykorzystanie .:

ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() + 
    annotate("text", x=8, y=13000, label= "boat") + 
    annotate("text", x = 4, y=13000, label = "ship") 

EDIT po KOMENTARZ

Dla efektywności, można łączyć adnotacje, takie jak ten:

ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() + 
    annotate("text", x = c(2,4,6,8), y=13000, label = c("two", "ship", "six", "boat"))