程序如下，没有提示错误，单独做的话都能出来，循环就出不来想要的
data6=read.csv("C:\\Users\\HuangYanyan\\Desktop\\kkkiu.csv")
for(j in 1:6){
AllAge=unique(data6$Age)
Age.j=AllAge[j]
data6.j=data6[data6$Age==Age.j,]
yourfilename=paste("Age.j",".jpg",sep="")
jpeg(file=yourfilename)
plot(x=data6.j$Height,y=data6.j$Weight,xlab="身高",ylab="体重",main="Age.j",pch=16
     ,col=3)
dev.off()
}