한 지점에서 다른 지점까지의 거리를 계산하고 싶습니다. 아래 매트릭스에서 모든 지점으로부터의 거리가 동시에 계산되고 있음을 알 수 있습니다. 하지만 나머지는 한 가지만 말씀 드리고 싶습니다. 공식에서 이것을 어떻게 정의합니까? 예를 들어 속성 6에서 다른 속성 19 개까지의 거리를 알고 싶습니다.
library(geosphere)
df<-structure(list(Latitude = c(-23.8, -23.8, -23.9, -23.9, -23.9, -23.9, -23.9, -23.9, -23.9, -23.9, -23.9, -23.9, -23.9, -23.9,
+ -23.9, -23.9, -23.9, -23.9, -23.9), Longitude = c(-49.6, -49.6, -49.6, -49.6, -49.6, -49.6, -49.6, -49.6, -49.6, -49.6, -49.7,
+ -49.7, -49.7, -49.7, -49.7, -49.6, -49.6, -49.6, -49.6), Production = c(526, 350, 526, 469, 285, 175, 175, 350, 350, 175, 350, 175, 175, 364,
+ 175, 175, 350, 45.5, 54.6)), class = "data.frame", row.names = c(NA, -19L))
coordinaties<-df[,1:2]
d<-as.dist(distm(coordinaties[,2:1]))
data.matrix(d)
1 2 3 4 5 6 7 8
1 0.00 0.00 11075.61 11075.61 11075.61 11075.61 11075.61 11075.61
2 0.00 0.00 11075.61 11075.61 11075.61 11075.61 11075.61 11075.61
3 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
4 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
5 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
6 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
7 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
8 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
9 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
10 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
11 15048.01 15048.01 10183.02 10183.02 10183.02 10183.02 10183.02 10183.02
12 15048.01 15048.01 10183.02 10183.02 10183.02 10183.02 10183.02 10183.02
13 15048.01 15048.01 10183.02 10183.02 10183.02 10183.02 10183.02 10183.02
14 15048.01 15048.01 10183.02 10183.02 10183.02 10183.02 10183.02 10183.02
15 15048.01 15048.01 10183.02 10183.02 10183.02 10183.02 10183.02 10183.02
16 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
17 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
18 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
19 11075.61 11075.61 0.00 0.00 0.00 0.00 0.00 0.00
9 10 11 12 13 14 15 16
1 11075.61 11075.61 15048.01 15048.01 15048.01 15048.01 15048.01 11075.61
2 11075.61 11075.61 15048.01 15048.01 15048.01 15048.01 15048.01 11075.61
3 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
4 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
5 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
6 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
7 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
8 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
9 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
10 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
11 10183.02 10183.02 0.00 0.00 0.00 0.00 0.00 10183.02
12 10183.02 10183.02 0.00 0.00 0.00 0.00 0.00 10183.02
13 10183.02 10183.02 0.00 0.00 0.00 0.00 0.00 10183.02
14 10183.02 10183.02 0.00 0.00 0.00 0.00 0.00 10183.02
15 10183.02 10183.02 0.00 0.00 0.00 0.00 0.00 10183.02
16 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
17 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
18 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
19 0.00 0.00 10183.02 10183.02 10183.02 10183.02 10183.02 0.00
17 18 19
1 11075.61 11075.61 11075.61
2 11075.61 11075.61 11075.61
3 0.00 0.00 0.00
4 0.00 0.00 0.00
5 0.00 0.00 0.00
6 0.00 0.00 0.00
7 0.00 0.00 0.00
8 0.00 0.00 0.00
9 0.00 0.00 0.00
10 0.00 0.00 0.00
11 10183.02 10183.02 10183.02
12 10183.02 10183.02 10183.02
13 10183.02 10183.02 10183.02
14 10183.02 10183.02 10183.02
15 10183.02 10183.02 10183.02
16 0.00 0.00 0.00
17 0.00 0.00 0.00
18 0.00 0.00 0.00
19 0.00 0.00 0.00
감사!!!
참조 ?distm: 두 세트의 포인트를 사용할 수 있습니다.
distm(coordinaties[6,2:1],coordinaties[-6,2:1])
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] 11075.61 11075.61 0 0 0 0 0 0 0 10183.02 10183.02 10183.02
[,13] [,14] [,15] [,16] [,17] [,18]
[1,] 10183.02 10183.02 0 0 0 0
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다