R中的双循环图

Question

我的问题是关于for循环结合R中的绘图函数.我想在一个绘图中绘制多个点.我不知道我的功能有什么问题.有什么帮助吗？

DATA
 a x y  z
149 1 1  0
153 1 1 10
160 1 1 10
149 1 2  0
153 1 2  0
160 1 2 10
149 2 1  0
153 2 1  0
160 2 1  5
149 2 2  0
153 2 2  0
160 2 2  5

PCH=0;
plot(c(142,169),c(0,11),type="n")
for(i in unique(DATA$x)) {
  for(j in unique(DATA$y)) {
    PCH=PCH+1
    select <- DATA[i,j]
    X = DATA[select,"a"]; 
    Y = DATA[select,"z"]
    points(X,Y,pch=PCH)
  }  
}

Answer 1

这是偶然做你想要达到的目的吗？

plot(z~a,data=DATA,
         pch=as.numeric(interaction(x,y)),
         xlim=c(142,169),ylim=c(0,11))