一些数据：
require(sp)
require(rgeos)
pts1 = cbind(seq(50,850,100), 50)
pts2 = cbind(seq(50,850,100), 150)
df = data.frame(1:18)
ptss <- rbind(pts1,pts2)
Spts <- SpatialPointsDataFrame(ptss, df)
sPts.B <- gBuffer(Spts, byid=TRUE, width=48, capStyle="SQUARE")
plot(sPts.B)
结果是我正在寻找的一种网格。
用sPts.B绘制lwd=4会导致带有圆角的正方形，但是我想接收正方形的角。使用绘图参数lend仅产生一个平方角。
如何使所有角正方形？