R中利用for()循环和dotchar()，为什么只有1幅图输出？

代码如下：
names<-myData[1:17,3]
for(i in 17){
myData2<-data.frame()
myData2<-myData[(myData$区试地点==names[i]),c(1,4)]#1=品种，4=亩产
myData2<-myData2[order(myData2$亩产.kg.),]
dotchart(myData2$亩产.kg.,labels=myData2$品种名称,cex=.7,main="品种按亩产从小到大排序的点图",xlab="亩产(kg/亩)")
}

https://blog.csdn.net/sinat_41805381/article/details/80064486