Добавить текст к geom_line в ggplot
Я пытаюсь создать линейный сюжет для 2 акций AAPL и FB.Вместо добавленияотдельная легендаЯ хотел бы напечатать символы акцийс линиями, Как я могу добавить geom_text в следующий код?
Я ценю любую помощь, которую вы могли бы оказать.
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")