Изменить название в xts l oop plots - PullRequest
Новая
       25

Изменить название в xts l oop plots

0 голосов
/ 05 мая 2020

У меня есть al oop на четырех графиках xts: 

basket <- cbind(AAPLG, GEG, SPYG, WMTG)
tickers <- c("AAPL", "GE", "SPY", "WMT")
par(mar = c(3, 3, 3, 3))
par(mfrow=c(2,2))
for (i in 1:4){
print(plot.xts(x = basket[, i], xlab = "Time", ylab = "Cumulative Return",
     , major.ticks= "years",
     minor.ticks = FALSE, col = "black"))
}

Я дошел до удаления пробного пространства в верхней части каждого графика из сообщения SO: Изменения в построение объекта XTS Однако есть ли способ изменить заголовки для каждого рисунка на символы тикера выше? Таким образом, при запуске l oop basket[, i] будет заменено на tickers <- c("AAPL", "GE", "SPY", "WMT")

Пример данных: 

structure(c(1, 1.01463414634146, 0.926829268292683, 0.970731707317073, 
0.953658536585366, 1, 0.998263888888889, 1.01159722222222, 1.05076388888889, 
1.05034722222222, 1, 1.00178890876565, 0.985688729874776, 1.04293381037567, 
1.04651162790698, 1, 0.976675478152698, 0.990359197636448, 1.06515316436013, 
1.04571606282071), class = c("xts", "zoo"), index = structure(c(946944000, 
947030400, 947116800, 947203200, 947462400), tzone = "UTC", tclass = "Date"), .Dim = 5:4, .Dimnames = list(
    NULL, c("new.close", "new.close.1", "new.close.2", "new.close.3"
    )))

PLot of four cumulative returns

Это график, который у меня есть. Все называется корзиной [, i], что не очень информативно.

Также: ylab и xlab не отображаются на графиках, даже если заданы высокие поля. Кто-нибудь знает решение для этого?

1 Ответ

0 голосов
/ 05 мая 2020

Вызов функции объекта тикера для main на графике 

for (i in 1:4){
  print(plot.xts(x = basket[, i], xlab = "Time", ylab = "Cumulative Return",
                 major.ticks= "years", minor.ticks = FALSE, 
                 col = "black", main = tickers[i]))
}
...