用点在精确位置绘制光栅对象答案

【问题标题】：Plotting Raster object with points at exact position用点在精确位置绘制光栅对象
【发布时间】：2014-11-26 13:30:09
【问题描述】：

我有一个要添加点的栅格对象。但是，当我更改绘图大小时，例如通过使其全屏显示，这些点会改变它们的位置。

有没有办法给它们精确的位置，而与地块大小无关？

可重现的代码：

r<- raster(nrows=10, ncols=10) r <- setValues(r, 1:ncell(r)) plot(r) points(x=-50,y=20) points(x=-50,y=-90)

我不允许发布图片。但是，当我将设备变小时，较低的点会超出颜色区域，或者当我将设备变大时，会更多地移动到颜色区域中。

干杯

【问题讨论】：

标签： r r-raster

【解决方案1】：

这里也暴露了这个问题：plotting spatial points over a raster layer in r。

我试图通过创建 SpatialPointsDataFrame 来超越它：

r<- raster(nrows=10, ncols=10)
r <- setValues(r, 1:ncell(r))
plot(r)
points(x=-50,y=20)
points(x=-50,y=-90)


coor1<- data.frame(Lat=-50,Lon=20)


point1 <- SpatialPointsDataFrame(
  data.frame(coor1$Lon,coor1$Lat),
  data.frame('Landriano')
)

x11()
plot(r)
plot(point1, add=T)

我看到的唯一解决方案是，一旦将点重叠在栅格上，就不应更改绘图窗口大小。否则点会随机移动到某处...

【讨论】：