请教大神们一个作图的问题

cons_no.t<- data.frame(table(data$CONS_NO))
bar_plot <- function(data.n,CONS_NO)
{
  p.name <-paste(data.n$CONS_NO[1],".jpg",sep="")
  jpeg(file = p.name,width = 800, height = 600, units = "px")
  print(qplot(m,cos,data=data.s,geom = "line"))
  dev.off()
}
i <- 1
for(i in 1:nrow(cons_no.t))
{
  B <- cons_no.t[i,1]
  bar_plot(data.n,B)
}

写好的脚本是这样的~
cons_no.t<- data.frame(table(data$CONS_NO))
bar_plot <- function(data.n,CONS_NO)
{
  p.name <-paste(data.n$CONS_NO[1],".jpg",sep="")
  jpeg(file = p.name,width = 800, height = 600, units = "px")
  print(qplot(m,cos,data=data.s,geom = "line"))
  dev.off()
}
i <- 1
for(i in 1:nrow(cons_no.t))
{
  BARCODE_1 <- cons_no.t[i,1]
  bar_plot(data.n,BARCODE_1)
}