我需要生成一个数据帧,该数据帧的每一行与另一个数据帧的所有其他行之间具有最小欧几里德距离。我的两个数据帧都很大(大约 40,000 行)。这是我到目前为止可以解决的问题。
x<-matrix(c(3,6,3,4,8),nrow=5,ncol=7,byrow = TRUE)
y<-matrix(c(1,4,4,1,9),nrow=5,ncol=7,byrow = TRUE)
sed.dist<-numeric(5)
for (i in 1:(length(sed.dist))) {
sed.dist[i]<-(sqrt(sum((y[i,1:7] - x[i,1:7])^2)))
}
但这仅在 i=j 时有效。我本质上需要的是通过逐行循环来找到最小欧几里德距离( y[1,1:7],然后 y[2,1:7] 等等直到 i= 5 )的“y”数据帧与“x”数据帧的所有行(x[i,1:7])。每次执行此操作时,我需要它找到每次计算的最小欧几里德距离y 数据帧的第 i 行和 x 数据帧的所有行并将其存储在另一个数据帧中。