如何在R中绘制矩形/边界框？

Question

如何生成此代码返回的框而不是沙漏形状？我尝试过更改坐标的顺序，但总是形成“ x”而不是框，有时是侧面沙漏。

library(sp)
mybb <- cbind(x=c(363498.5,480497.5,363498.5, 480497.5,363498.5), y=c(5894630,5894630,5806524,5806524,5894630))
crs <-CRS("+proj=utm +zone=12 +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0")
mybb <- SpatialPolygons(list(Polygons(list(Polygon(mybb)),"1")), proj4string=crs)
plot(mybb)

返回：

Answer 1

不确定到目前为止为什么不能重新排列坐标。这对我有用。

l