在光栅中制作正方形

Question

我正在尝试制作一个带有网格形状结构的栅格。这个例子是样本。我希望以后可以在不同的角度将所有正方形旋转起来进行研究，这将是斜坡上的建筑物，我需要在很多情况下重新定位它们

ymx = 0 + 30*1
Z <- matrix(0,nrow = 30, ncol =30)
Z = raster(Z,xmn=0,xmx=30,ymn=0,ymx=ymx)

for(i in 1:30) {
  x = 0 + 1*(i-0.5)
  for(j in 1:30) {
    y = ymx - 1*(j-0.5)
    Z[j,i] = 0 - 0.01*(y-ymx)
  }
}

R=c(1:3,7:9,13:15,19:21,25:27)
for(i in R) {
  for(j in R) {
   Z[j,i]=Z[j,i] + 0.3
  }
}

我需要一个模式取决于我的栅格大小ncol和nrow而不是：R=c(1:3,7:9,13:15,19:21,25:27)

上面的代码是我需要的光栅类型，但它只是手动我输入的数字我想用一个模式，我能够稍后重新定向网格。

的外观如何