现在程序中使用了一个循环，每个循环都需要做一幅图，而每幅图都需要存储为.tif的格式，比如：

for (i  in 1:5){
  x <- 1:100
  y <- x*i
  x11()
  tiff(file="Figure.tif",width=72, height=78, units='mm',res=1200,compression='lzw',pointsize=5)
  plot(x, y)
  dev.off()
}

但是每次图形都会被上一幅图覆盖，如何才能保存所有的图？

请高手赐教！谢谢！