Как построить несколько строк в R

Я думаю, что это могло бы помочь:

library(lattice)
xyplot(
  Arima + BuyHold ~ Date,                                   # here you can add log() to the two ts
  data=plotData,
  superpose=T,
  col=c("#cc0000", "#0073e6"),                              # similar colors
  lwd=2,
  key=list(
     text  = list(c("ARIMA+GARCH log", "Buy & Hold log")),
     lines = list( lwd=2, col=c("#cc0000", "#0073e6"))      # similar colors
  ), type=c("l","g")                                        # lines and grid
)

Если вы хотите уменьшить количество тиков по оси X, вы должны создать свои метки и добавить их таким образом (в этом случае один год вы должны рассчитать параметры полного временного ряда):

x.tick.number <- 1
at <- seq(1, nrow(d), length.out=x.tick.number)
labels <- round(seq(2001, 2001, length.out=x.tick.number))

В сюжете:

xyplot(
  Arima + BuyHold ~ Date,                                   # here you can add log() to the two ts
  data=d,
  superpose=T,
  col=c("#cc0000", "#0073e6"),                              
  lwd=2,
  key=list(
    text  = list(c("ARIMA+GARCH log", "Buy & Hold log")),
    lines = list( lwd=2, col=c("#cc0000", "#0073e6"))      
  ), type=c("l","g"),
  scales = list(at=at, labels=labels, rot=90))

И решетка, и ggplot предлагают решения. Несмотря на это, как предлагает @davide, «плавление» ваших данных или преобразование их из «широкого» формата в «длинный» является очень хорошей практикой. Интересующие значения помещаются в одну переменную, и создается параллельный фактор для определения группы, связанной с каждым значением.

Это можно сделать в базе R несколькими способами. Здесь показано использование stack(). Кроме того, путем преобразования факторного или символьного представления даты в объект Date процедуры построения графиков в lattice и ggplot2 помогут вам лучше управлять метками осей.

df <- data.frame(Date = as.Date(plotData$Date), stack(plotData[2:3]))
(names(df)) # stack names the data 'values and the grouping factor 'ind'
levels(df$ind) <- c("ARIMA+GARCH", "Buy & Hold") # simplifies legends

Вот несколько простой график с несколькими дополнениями для линий сетки и легенды (ключ):

xyplot(values ~ Date, data = df, groups = ind, type = c("g", "l"), auto.key = TRUE)

Графики можно настроить с помощью функций lattice через panel и элементов в auto.key. Хотя использование col = c("darkred", "darkblue") на верхнем уровне функции окрашивает линии на графике, передача его через необязательный аргумент par.settings делает его доступным для функции легенды.

xyplot(values ~ Date, data = df, groups = ind,
  panel = function(...) {
    panel.grid(h = -1, v = -1)
    panel.refline(h = 0, lwd = 3)
    panel.xyplot(..., type = "l")},
  auto.key = list(points = FALSE, lines = TRUE, columns = 2),
  par.settings = list(superpose.line = list(col = c("darkred", "darkblue"))))