使用坐标

Question

我的数据集如下所示：

ID         Start_Datetime       End_Datetime         Longitude   Latitude
2.011e+09  2011-02-01 00:47:35  2011-02-01 00:57:05  -73.98839   40.75504

我想确定每行是否发生在我感兴趣的某个地点，例如：一个机场。为此，我正在做以下事情：

tol <- 0.001
for (i in 1:length(DataS$latitude) ){ 
  if(abs(DataSet$latitude[i] - 40.644305) < tol | 
     abs(DataSet$latitude[i] - 40.642160) < tol) 
    if(abs(DataSet$longitude[i] - -73.790517) < tol |
       abs(DataSet$longitude[i] - -73.788895) < tol)
    {
      DataSet$POI[i] <- 1
    } 
}

我的数据集有超过2000万行，而且这段代码非常耗时。有没有其他方法可以让我更有效地工作？也许ggmap包中的一个函数我适应了这个？

谢谢，