我想找出我的对象的精确地图比例尺(以 m 或 km 为单位)SpatialPolygons
并将其绘制在我的对象上,spplot
以便读者了解距离。这意味着我想找出???
在情节中输入的数字。
library("sp")
library("CARBayes")
data("spatialhousedata")
proj4string(spatialhousedata) <- CRS("+proj=cass +lat_0=52.41864827777778 +lon_0=13.62720366666667
+x_0=40000 +y_0=10000 +datum=potsdam +units=m +no_defs
+ellps=bessel +towgs84=598.1,73.7,418.2,0.202,0.045,-2.455,6.7 ")
scalebar=list("SpatialPolygonsRescale", layout.scale.bar(),
offset = c(225000,647000), scale = 10000, fill=c("transparent","black"))
text1=list("sp.text", c(225000,649000), "0")
text2=list("sp.text", c(230000,649000), "??? m")
spplot(spatialhousedata, "price",
sp.layout=list(scalebar, text1, text2))
也许有什么sp::coordinates
或Imap::gdist
?任何先前的重新投影都SpatialPolygons
需要找出这一点?