R에서 위경도 간의 거리(dist) 구하기

✔️ 필요성

위경도 점이 2개 있으면 인간이라면 거리를 구합니다.

 

 

✔️ 거리 구하는 function 만들기

dist <- function(lng1, lat1, lng2, lat2) {
    R = 6371
    lng_diff = lng2 - lng1
    lat_diff = lat2 - lat1
    
    p = sin(lat_diff/2)^2 + cos(lat1) * cos(lat2) * sin(lng_diff/2)^2
    q = 2 * asin(pmin(1, sqrt(p)))
    d = R * q
    
    return(d)
}