2015年10月19日

#循环eg.

ALLNests <- unique(Owls$Nest)

for (i in 1:27) {

  Nest.i<-ALLNests[i]

  Owls.i<-Owls[Owls$Nest==Nest.i,]

  YourFileName<-paste(Nest.i,".jpg",sep = "")

  jpeg(file=YourFileName)

  plot(x=Owls.i$ArrivalTime,y=Owls.i$NegPerChick,

       xlab="Arrival Time",ylab = "Negotiation behaviour",main =Nest.i)

  dev.off()

  }

#最后在bottomright window里设定输出路径