Построение множественного графа в одном графе в R с помощью функции

Question

Я пытаюсь построить график только на одном графике.У меня есть 4 разных графика с использованием функции.Это мой код:

hazard.plot.w2p(beta = beta.spreda, eta = eta.spreda, time = exa1.dat$time, line.colour = "blue")
hazard.plot.w2p(beta = 1.076429, eta = 26.21113, time = exa1.dat$time, line.colour = "blue")
hazard.plot.w2p(beta = 5, eta = 32.97954, time = exa1.dat$time, line.colour = "blue")
hazard.plot.w2p(beta = 2, eta = 32.9795, time = exa1.dat$time, line.colour = "blue")

Вот функция, которую я использовал для вывода:

hazard.plot.w2p <- function(beta, eta, time, line.colour, nincr = 500) {
  max.time <- max(time, na.rm = F)
  t <- seq(0, max.time, length.out = nincr)
  r <- numeric(length(t))
  for (i in 1:length(t)) {
    r[i] <- failure.rate.w2p(beta, eta, t[i])
  }
  plot(t, r, type = 'l', bty = 'l', 
       col = line.colour, lwd = 2, 
       main = "", xlab = "Time", 
       ylab = "Failure rate", 
       las = 1, adj = 0.5, 
       cex.axis = 0.85, cex.lab = 1.2)
}

Я хочу построить все 4 графика только на одном графике.

Вот пример набора данных:

fail       time
a          4.55
a          4.65
a          5.21
b          3.21
a          1.21
a          5.65
a          7.12

Answer 1

Вы можете использовать par(new=TRUE) после каждого сюжета.Или вы можете поставить его в конце функции.