我知道這里有一個類似的問題，
關于我應該如何處理這個問題的任何想法？
uj5u.com熱心網友回復：
如果您想通過 計算距離，bird_ID那么您應該left_join在locations計算距離之前先使用原始資料。
distances <- dt %>%
left_join(locations, by = "bird_ID") %>% # NEW
group_by(bird_ID) %>%
select(bird_ID, # suppress an auto-add message
longitude, latitude, date,
longitude.mean, latitude.mean) %>% # added so we have the data per-bird_ID
mutate(
Dist = geosphere::distHaversine(
cbind(longitude.mean, latitude.mean), # removed `location$`
cbind(longitude, latitude))
) %>%
tidyr::drop_na()
# # A tibble: 2 x 7
# # Groups: bird_ID [1]
# bird_ID longitude latitude date longitude.mean latitude.mean Dist
# <chr> <dbl> <dbl> <chr> <dbl> <dbl> <dbl>
# 1 350E 40.2 64.7 2022-05-02 52.1 68.5 674850.
# 2 350E 40.2 64.7 2022-05-02 52.1 68.5 674840.
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/531255.html
標籤：r数据框dplyr地圈
上一篇：如何在r中結合電子表格中的12小時時間表和AM/PM列
下一篇：歷年累計金額R