我想用一个循环语句画每支股票的时序图，下面的是我写的语句，如果没有for循环可以很好的执行，但是加上循环画出来的都是空白图，这是怎么回事？请高手解答！先谢过！

dir<-paste("d://r/plot",both,".png",sep = "")

for (i in 1:length(both)) {
  png(dir)
  data<-subset(mergedata,code==both)
  g<-ggplot(data,aes(date,close))
  g1<-g+geom_line(col=i)
  g1
  dev.off()}