如何创建一个带有网格的圆并在R中标记占用的单元格？

Question

我将如何创建一个带有网格的圆形，然后根据X，Y坐标系统填充占用的单元格。

我的圈子看起来像这样（数字位置号）：

而且我已经建立了我的X，Y系统位置1为-2,4 ... ..

感谢，

阿利萨

Answer 1

plot(5*c(1,0,-1,0), 5*c(0,1,0,-1) ,col="transparent") # set coordinate range 
abline(h=-5:5); abline(v=-5:5) # the grid 
polygon( 4.3*sin(seq(0,2*pi,length=100)), 
      4.3*cos(seq(0,2*pi,length=100))) # the circle 
abline(h=0,v=0,lwd=2) # the axes 
text(x=c((1:4)-2.5,(1:6)-3.5, (1:8)-4.5, (1:8)-4.5, #offsets to center in cells 
     (1:8)-4.5, (1:8)-4.5, (1:6)-3.5, (1:4)-2.5), 
    y=c(rep(4,4), rep(3,6), rep(2,8), rep(1,8), 
      rep(0,8), rep(-1,8), rep(-2,6), rep(-3,4))-0.5, 
    labels=1:52) 

抑制轴标签，轴蜱，以及去除所述“突出端”是提供正确的图形参数（xaxs，yaxs，xaxt，yaxt，xlab和ylab）到一个简单的事情调用函数plot。也许：

..., , xaxs="i", yaxs="i", xaxt="n", yaxt="n", ylab="", xlab="") 

这会产生这样的：