Как сравнить евклидово расстояние одной строки информационного кадра со всеми другими строками информационного кадра, а затем отсортировать его в порядке возрастания в R

Question

Мне нужно рассчитать евклидово расстояние определенной строки моего информационного кадра, сравнив его со всеми другими строками моего информационного кадра, а затем найти строки с минимальным евклидовым расстоянием, соответствующим конкретной выбранной мной строке. Строка, которую я хотел сравнить, была сохранена в другом фрейме данных для простого вычисления.

Я нашел это решение по другому вопросу, но не могу понять его.

# data1 is the main dataframe
# data2 contains a particular row of data1 of which i need to calculate 
# euclidean distance with all the rows of main dataframe.

sapply(1:nrow(data2), function(i) sqrt(rowSums(sweep(data1,1,data2[i,])^2)))