Question

我想在图中添加图像。我可以使用图像功能成功地将图像放置在[0 1]范围内，但我希望能够在另一个位置绘制它。这是一个例子：

require(rgdal)
require(RgoogleMaps)
bb <- qbbox(c(40.702147,40.711614,40.718217),c(-74.015794,-74.012318,-73.998284), TYPE = "all", margin = list(m=rep(5,4), TYPE = c("perc", "abs")[1]));

MyMap <- GetMap.bbox(bb$lonR, bb$latR,destfile = "MyTile3.png", maptype = "satellite")
plot(0:20,0:20)
image(MyMap$myTile,col=attr(MyMap$myTile,"COL"),add=TRUE)

这会创建一个位于原点的小地图，我想让它跨越我选择的范围（实际上它是实际的纬度/经度）。

Answer 1

使用image（）的x和y参数。注意image（x）如何用于矩阵，或者由$ x和$ y向量和$ z矩阵组成的列表，但是你也可以明确地传入图像（x = xvec，y = yvec，z = zmat）。

所以，粗略地说（你需要检查你是否需要细胞中心[dim（z）]或细胞角[dim（z）+1]）

    dims <- dim(seqMyMap$myTile)
    image(x = seq(minX, maxX, length = dims[1]), y = seq(minY, maxY, length = dims[2]), z =  seqMyMap$myTile,col=attr(MyMap$myTile,"COL"),add=TRUE)

另外，阅读？图像 - 它确实解释了这一点。

Answer 2

另请参阅TeachingDemos包中的subplot函数，或使用ms.image与my.symbols一起使用（也在TeachingDemos中）。

在任意位置绘制图像

2 个答案: