Как добавить легенду () на plot () в программировании на R - PullRequest
Новая
       9

Как добавить легенду () на plot () в программировании на R

0 голосов
/ 06 сентября 2018

Я запускаю этот код: 

library("quantmod")
symbols = c('^VLIC', 'GE', 'KO', 'AAPL', 'MCD')
getSymbols(symbols, src='yahoo', from="2012-02-01", to="2013-02-01")

#obtain adjusted closed
VLICad = VLIC$VLIC.Adjusted
GEad = GE$GE.Adjusted
KOad = KO$KO.Adjusted
AAPLad = AAPL$AAPL.Adjusted
MCDad = MCD$MCD.Adjusted

#compute cumulative sum (cumsum) of daily returns (Delt)
#Remove first term of the series, with [-1,], since cumsum is not defined for it.

vl = cumsum((Delt(VLICad)*100)[-1,])
ge = cumsum((Delt(GEad)*100)[-1,])
ko = cumsum((Delt(KOad)*100)[-1,])
ap = cumsum((Delt(AAPLad)*100)[-1,])
md = cumsum((Delt(MCDad)*100)[-1,])

###range of values for the plot
lim = c(min(vl, ge, ko, ap, md), max(vl, ge, ko, ap, md))
plot(vl, main="", ylim=lim, xlab="dates", ylab="% benefits")
lines(ge, col="green")
lines(ko, col="red")
lines(ap, col="violet")
lines(md, col="yellow")

legend(x = "topleft", 
       cex = 0.4,c("VLIC", "GE", "KO", "AAPL", "MCD"), 
       lty = "l", 
       col = c("black", "green", "red", "violet", "yellow"), 
       text.col = c("black", "green", "red", "violet", "yellow"))

Я могу получить такой результат:

Result Image

Но я не могу получить легенду, это означает, что код последней строки не работает?

1 Ответ

0 голосов
/ 06 сентября 2018

Поскольку vl имеет класс xts, при вызове универсальной функции plot отправляется метод plot.xts. legend не очень хорошо играет с графиками XTS, но xts::addLegend играет. Попробуйте это: 

colvec <- c("black","green","red","violet","yellow")
xts::addLegend(legend.loc="topleft", legend.names=c("VLIC","GE","KO","AAPL","MCD"), 
               lty = 1, col=colvec, text.col=colvec, bg="white", bty=1)
...