大神们，欢迎围观。帮忙实现以下行列号的定义？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

怎么定义栅格的行列号吗？例如下面图的最右下边的格子，我想定义为第一行第一列，依次类推。我知道各个网格的中心点的坐标。

这是图的代码
x<-c(0,15)
y<-c(0,15)
par(bg="gray")
plot(x,y,type="n",xlab="",ylab="")
points(c(3,11),c(6,8),pch=21,bg="yellow")
for(x in 0:14){rect(x-.5,.5,x+.5,1.5)
x=x+1}
for(x in 0:14){rect(x-.5,1.5,x+.5,2.5)
x=x+1}
for(x in 0:14){rect(x-.5,2.5,x+.5,3.5)
x=x+1}
for(x in 0:14){rect(x-.5,3.5,x+.5,4.5)
x=x+1}
for(x in 0:14){rect(x-.5,4.5,x+.5,5.5)
x=x+1}
for(x in 0:14){rect(x-.5,5.5,x+.5,6.5)
x=x+1}
for(x in 0:14){rect(x-.5,6.5,x+.5,7.5)
x=x+1}
for(x in 0:14){rect(x-.5,7.5,x+.5,8.5)
x=x+1}
for(x in 0:14){rect(x-.5,8.5,x+.5,9.5)
x=x+1}
for(x in 0:14){rect(x-.5,9.5,x+.5,10.5)
x=x+1}
for(x in 0:14){rect(x-.5,10.5,x+.5,11.5)
x=x+1}
for(x in 0:14){rect(x-.5,11.5,x+.5,12.5)
x=x+1}
for(x in 0:14){rect(x-.5,12.5,x+.5,13.5)
x=x+1}
for(x in 0:14){rect(x-.5,13.5,x+.5,14.5)
x=x+1}
for(x in 0:14){rect(x-.5,14.5,x+.5,15.5)
x=x+1}
x[1]=3
y[1]=6
x2=11
y2=8
m=max(abs(y2-y[1]),abs(x2-x[1]))
n=m+1
addy=(y2-y[1])/m
addx=(x2-x[1])/m
i=2
for(i in 2:n){x=x[1]+(i-1)*addx
y=y[1]+(i-1)*addy
y=round(y)}
data<-data.frame(x=x,y=y)
rect(data$x-.5,data$y-.5,data$x+.5,data$y+.5,col=rev(heat.colors(10)))
lines(c(3,11),c(6,8),type="o",col="green")
本文来自: 人大经济论坛 S-Plus&R专版 版，详细出处参考： https://bbs.pinggu.org/forum.php?mod=viewthread&tid=2728023&page=1&from^^uid=4405419

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：行列号 中心点 格子 中心