Agregue texto a geom_line en ggplot

Estoy tratando de crear un diagrama lineal para 2 acciones AAPL y FB.En lugar de agregar unleyenda separada, Me gustaría imprimir los símbolos de stock a lo largocon las lineas. ¿Cómo puedo agregar geom_text al siguiente código?
Agradezco cualquier ayuda que pueda proporcionar.

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")

Respuestas a la pregunta(2)

Su respuesta a la pregunta