R中OSM图周围的方框

Question

有人可以在R中的OpenStreetMap绘图周围放置一个框吗？ box不适合地图本身，而rect根本不绘制任何内容。

require(OpenStreetMap)    
m = openmap(c(52,-1), c(51,1), zoom=8, type='osm')
par(mai=rep(.2,4))
plot(m, removeMargin=F)
box()
rect(-1, 51, 1, 52, border='black', lwd=2)

Answer 1

box()在整个绘图区域上绘制一个方框，其中显然包括一些空白区域。

rect的问题在于坐标不符合您的期望：通过在绘图中添加一些轴来进行检查。 可以从m对象本身获取正确的边界坐标： m$bbox ，请参见str(m) 。 使用这些来绘制矩形，如下所示：

require(OpenStreetMap)    
m = openmap(c(52,-1), c(51,1), zoom=8, type='osm')
# par(mai=rep(.2,4))

plot(m, removeMargin=F)

# add axes to check coordinates, uncomment to see for yourself
# axis(1); axis(2)

p1 = m$bbox$p1 # bottom left
p2 = m$bbox$p2 # top right
rect(xleft=p1[1], ybottom=p1[2], xright=p2[1], ytop=p2[2], xpd=NA, lwd=2, border='red')