У меня есть 2 списка с координатами X, Y точек. Список 1 содержит больше точек, чем список 2.

Задача состоит в том, чтобы найти пары точек таким образом, чтобы общее евклидово расстояние было минимальным.

У меня есть рабочий код, но я неЯ не знаю, является ли это наилучшим способом, и я хотел бы получить подсказку, что я могу улучшить для результата (лучший алгоритм для поиска минимума) или скорости, потому что в списке около 2000 элементов.

Раунд в векторах выборок реализован так, чтобы получить также точки с одинаковыми расстояниями. С "Rdist» функция все расстояния генерируются в "расстояния», Чем минимум в матрице используется для связи 2 балла ("dist_min»). Все расстояния этих 2 точек теперь заменены на NA, и цикл продолжается путем поиска следующего минимума, пока все точки списка 2 не получат точку из списка 1. В конце я добавил график для визуализации.

require(fields)

set.seed(1)
x1y1.data