Я сделал матрицу расстояний между географическими точками потребителей и супермаркетов следующим образом:
d2 <- distm(data.frame(Supermarkets$lon, Supermarkets$lat), data.frame(Consumers$Lon, Consumers$Lat))
rownames(d2) <- c(Supermarkets$ID)
colnames(d2) <- c(Consumers$ID)
С помощью этой матрицы мне удалось создать столбец в другом кадре данных с расстоянием до ближайший супермаркет для каждого потребителя по:
Dataset$DistanceToClosestSupermarket <- apply(d2, 2, function(x) sort(x, decreasing=F)[1])
Теперь мне нужен столбец рядом с тем, который дает соответствующий идентификатор супермаркета, но я, таким образом, не смог этого сделать. Кто-нибудь знает как это сделать?