如何在 R 中绘制 rectangle/bounding 框？

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)

Returns:

Answer 1

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

library(rgdal)
library(sp)

mybb <- cbind(x=c(363498.5, 480497.5, 480497.5, 363498.5), y=c(5894630, 5894630, 5806524, 5806524))
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)

如何在 R 中绘制 rectangle/bounding 框？

How to plot rectangle/bounding box in R?

r

sp