- setwd("/Users/Downloads/RBook")
- Owls <- read.table(file = "Owls.txt",header = TRUE)
- setwd("/Users/Downloads/try r")
- 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", main = Nest.i, ylab = "Negotiation behaviour” )
- dev.off()
- }
#到这里应该运行才对,可是程序又出现了一个“+”,好像for循环的内容还没输入完一样;循环应该结束了呀…………



雷达卡




京公网安备 11010802022788号







