Ich versuche ein Liniendiagramm für 2 Aktien AAPL und FB zu erstellen.Stattdesse des Hinzufügens einesseparate legend, Ich möchte die Aktiensymbole zusammen mit @ druckmit den Zeilen. Wie kann ich geom_text zum folgenden Code hinzufügen?
Ich freue mich über jede Hilfe, die Sie leisten können.

library (ggplot2)
library(quantmod)
getSymbols('AAPL')
getSymbols('FB')

AAPL = data.frame(AAPL)
FB = data.frame(FB)
p1 = ggplot(AAPL)+geom_line(data=AAPL,aes(as.Date(rownames(AAPL)),AAPL.Adjusted,color="AAPL"))
p2 = p1+geom_line(data=FB,aes(as.Date(rownames(FB)),FB.Adjusted,color="FB"))
p2 + xlab("Year")+ylab("Price")+theme_bw()+theme(legend.position="none")