Создайте метод графика S3 для класса погода, который создает график временного ряда с 3 переменными

Question

Мне нужно создать метод сюжета s3 для класса «погода». это должен быть линейный сюжет (временной ряд). он включает данные о погоде, такие как год, максимальная и минимальная температура. год должен быть на оси х, а две другие переменные должны отображаться в виде линий. а также я должен быть в состоянии изменить годы, которые я хочу визуализировать со временем.

## s3 plot
  weather.plot <- function(object){
  par(mar = c(3.5, 3.5, 2.5, 1.5), mgp = c(2, 0.6, 0), las = 1)
  ts.vec1<- ts(object$mintp, start = min(object$year), end= max(object$year))
  ts.vec2<- ts(object$maxtp, start = min(object$year), end= max(object$year))
  plot(ts.vec1,ts.vec2, type="n",
  xlab = "Minimum air Temperature", ylab = "Maximum air Temperature",
  las=1, main = "Time series plot of Air Temperature", ylim = c(-10,30))
  legend("topleft", legend = c("Minimum Air Temp.","Maximum Air Temp."),
  pch = 19, col =c("green","red") ,bty = "n")}