将for循环中的所有图形保存到一个图形文件中

我想把12张图画成一个图。 现在我写了以下代码：

everyEleven <- split(Theoph,ceiling(seq(nrow(Theoph))/11))
everyEleven

# SUbject numbers
pos_vec = c(1,2,3,4,5,6,7,8,9,10,11,12)

# One plot
plot(everyEleven[[12]]$Time, everyEleven[[12]]$conc, type = "l", main = "Subject 1")


# Several plots

plot_list = list()

par(mfrow=c(2,6))
plot_list

for (i in length(everyEleven)) {
  plot(everyEleven[[i]]$Time, everyEleven[[i]]$conc, type = "l", main = paste("Subject",pos_vec[i]), xlab= "Time", ylab= "Concenctration")
  plot_list[[i]] = p
}

---

everyleen一个简单的错误，您不会在所有绘图上循环，而只是在最后一个绘图上循环。添加
1:length（）

这回答了你的问题吗？天哪，是的！我加上了1：并且它立即起作用。非常感谢你！
for (i in 1:length(everyEleven)) { # added 1:
  plot(everyEleven[[i]]$Time, everyEleven[[i]]$conc, type = "l", main = paste("Subject",pos_vec[i]), xlab= "Time", ylab= "Concenctration")
  plot_list[[i]] = p
}