R 点到不在同一组中的点的最近邻距离

DT[DT, c("nn_dist", "nn_X", "nn_Y") := find_NNN(data.table(i.X, i.Y), .SD[ID != i.ID]), by = .EACHI]

structure(list(ID = c(1L, 1L, 2L, 2L), X = c(318L, 317L, 1273L, 
1272L), Y = c(1L, 2L, 1L, 2L), t = c(1, 1, 1, 1), uid = c(1L, 
2L, 1271L, 1272L)), row.names = c(NA, -4L), class = c("data.table", 
"data.frame"), .internal.selfref = <pointer: 0x7f89b481f0e0>)

dist <- function(x,y,d) d[order(d[,sqrt((X-x)^2 + (Y-y)^2)])][1]

df[, c("nnX", "nnY", "nn"):=dist(X,Y, df[ID!=.BY$ID,.(X,Y,uid)]),by=.(ID,uid)]

   ID    X Y t  uid  nnX nnY   nn
1:  1  318 1 1    1 1272   2 1272
2:  1  317 2 1    2 1272   2 1272
3:  2 1273 1 1 1271  318   1    1
4:  2 1272 2 1 1272  318   1    1

dist <- function(x,y,d) {
  d[, nn_dist:=sqrt((X-x)^2 + (Y-y)^2)][order(nn_dist)][1]
}
df[, c("nnX", "nnY", "nn", "nn_dist"):=dist(X,Y, df[ID!=.BY$ID,.(X,Y,uid)]),by=.(ID,uid)]

   ID    X Y t  uid  nnX nnY   nn  nn_dist
1:  1  318 1 1    1 1272   2 1272 954.0005
2:  1  317 2 1    2 1272   2 1272 955.0000
3:  2 1273 1 1 1271  318   1    1 955.0000
4:  2 1272 2 1 1272  318   1    1 954.0005

R相关问答推荐

如何根据条件计算时差(天)

以R中的正确顺序将日期时间字符列转换为posixct

为什么在ggplot2中添加geom_text这么慢？

使用tidy—select创建一个新的带有mutate的摘要变量

使用strsplit()将向量操作为数据框

删除具有相同标题的tabPanel(shinly)

非线性混合效应模型(NLME)预测变量的置信区间

如何通过判断数据框的一列来压缩另一列？

将二进制数据库转换为频率表

如何在R中通过多个变量创建交叉表？

安全地测试文件是否通过R打开

提高圣彼得堡模拟的速度

为什么我对圆周率图的蒙特卡罗估计是空的？

在使用SliderInput In Shiny(R)设置输入数据的子集时，保留一些情节痕迹

Ggplot2如何找到存储在对象中的残差和拟合值？

如何获取R chromote中的当前URL？

无法保存gglot的所有pdf元素

R data.设置函数&；连接中的列值而不使用for循环的表方法？

使用`ggsurvfit：：ggsurvfit()`

对数据帧中的大量组合执行Kruskal-Wallis测试