R 计算同一天一个人和每一个捕食者之间的距离

我正在用UTM33坐标计算麋鹿和狼之间的距离，时间为2年（大数据集），在R中。我想有一个最终的表格，可以给我一些类似mooseID Moostate Moosette mooseY wolfID wolfDate wolfX wolfY distance（m）的信息。到目前为止，我认为我已经能够计算出距离，但似乎无法匹配日期（例如，对于每一个驼鹿位置，我想找到此时所有狼的距离）。此外，我有比狼（10只）更多的驼鹿（40只）数据，驼鹿的位置每2小时记录一次，而狼的位置每4小时记录一次。我现在感兴趣的是在同一天内看到每只驼鹿到每只狼的距离，然后过滤遭遇，你能发布一个数据样本吗？我添加了一个数据截图，如果需要，我可以添加更多！编辑问题并将数据粘贴到那里，以便有人可以直接复制。我已尝试放置列，但格式不允许我这样做，您应该能够将粘贴复制到excel并传输到R！如果有其他方法可以做到这一点，请告诉我，我已经包括了15个第一个条目（日期进行了排序，以便2018年的第一个条目）你能发布一个数据样本吗？我添加了一个数据截图，如果需要，我可以添加更多！编辑问题并将数据粘贴到那里，以便有人可以直接复制。我已尝试放置列，但格式不允许我这样做，您应该能够将粘贴复制到excel并传输到R！如果有其他方法可以做到这一点，请告诉我，我已经包括了15个第一个条目（日期是按2018年第一个条目排序的）

#Change to data.table and sort date format
mloc = data.table(moosesubset)
wloc = data.table(wolfsubset)
mloc$DateTime=as.POSIXct(mloc$DateTime, format = "%d.%m.%Y %H:%M:%S")
wloc$DateTime=as.POSIXct(wloc$DateTime, format = "%d.%m.%Y %H:%M:%S")

#Sort by date
Sortmoose = mloc[order(as.Date(mloc$DateTime,format="%d.%m.%Y %H:%M:%S")),]
Sortwolf = wloc[order(as.Date(wloc$DateTime,format="%d.%m.%Y %H:%M:%S")),]

# Try distances only
moosewolf=cbind(Sortmoose,Sortwolf)
moosewolf$distance= sqrt(((moosewolf[,12]-moosewolf[,5])^2)+(moosewolf[,13]-moosewolf[,6])^2)

names(moosewolf)=c("Id","MooseID","Moose DateTime","Moose X", "Moose Y","Moose Altitude",
                   "Id", "Wolf ID", "Wolf DateTime", "Wolf X", "Wolf Y", "Wolf Altitude",
                   "Distance(m)")                      
moosewolf$`Distance(m)`= round(moosewolf$`Distance(m)`)
encounters=moosewolf[which(moosewolf$`Distance(m)`<1000)]