R 光栅从一个点的xy坐标中提取多边形ID

Question

我想提取一个点所在的多边形 ID。 我尝试了多种解决方案，但我不知道该怎么做。 目前我的代码如下：

r1<-raster(xmn=-111.4567,
       xmx=136.841,
       ymn=-94.39192,
       ymx=123.5581,
       res=50) 
r1 = rasterToPolygons(r1)
d = cbind("x" = 7.36459732, "y"=  30.4465762)
extract(r1,d)

EDIT1：如果我从栅格中获取网格坐标，d 的多边形 ID 应为 13（因为 d 在 x 轴上介于 -36.45 和 13.54 之间，在 -1.44 和 48.55 之间）

r1<-raster(xmn=-111.4567,
       xmx=136.841,
       ymn=-94.39192,
       ymx=123.5581,
       resolution=50) 

cells<-cellFromRowColCombine(r1, 1:dim(r1)[1],1:dim(r1)[2])
coord_grid<-data.frame(xyFromCell(r1,cells),id=cells)

在此先感谢您的帮助。

Answer 1

在这里我找到了解决方案：cellFromXY(r1, d)