使用for循环绘制多个数字并将它们输出到pdf文件，但只是得到最后一个数字

Question

pdf("test.pdf")
for (i in length(dis_pos)){
    fic <- chr1[ chr1$pos < dis_pos[i]+500 & chr1$pos >=dis_pos[i], ]
    plot(fic$pos,fic$count,type='h')
}
dev.off()

我想根据变量length的{​​{1}}绘制许多数字。我刚刚在dis_pos文件中得到了最后一个数字。 我的意思是，如果变量pdf等于dis_pos，我怎样才能获得12文件中的所有12图片，而不是 12 图？