рал простой цикл for, чтобы сгенерировать серию графиков, а затем использовать grid.arrange для их построения. У меня две проблемы:

Оси графиков меняются правильно на имена столбцов, нотакой же данные наносятся на каждый график. Установив точку останова и пройдя через код, он, похоже, правильно увеличивается, поэтому я не уверен, почему.

Я установил эстетику сюжета для группы по годам, однако это дает промежуточные .5 лет, которые появляются в легенде. Это не случилось со мной раньше.

Должны ли все быть воспроизводимы с использованиемmtcars.

library(ggplot2)
library(gridExtra)

result <- mtcars

for(i in 1:2) {
  nam <- paste("p", i, sep = "")
  assign(
    nam, ggplot(result, aes(x = disp, y = results[i+4], group = gear, color = gear)) +
      geom_line() +
      geom_point() +
      scale_colour_distiller(palette = "Dark2", direction = -1, guide = "legend") +
      scale_y_continuous(name = colnames(results[i+4])) +
      scale_x_continuous(name = "x")
  )
}


plist <- mget(paste0("p", 1:2))
do.call(grid.arrange, plist)