任意数量坐标点间平均距离计算问题

hygs

我有一组500行200列的数据，其中一部分如下所示：

[data]

NAME X Y T1 T2 T3 T4

A 20783.585 4150.393 1 0 1 1

B 20586.828 3557.383 0 1 0 1

C 20783.585 4150.393 0 1 1 1

D 20586.828 3557.383 1 1 1 1

[/data]

ABCD为四个坐标点，X,Y列为坐标值，T1至T4为四个时间，1表示此时间有这个点，0表示此时间没有这个点。我要求的是各个时间各点间平均距离，即T1时间AD间距离，T2时间BCD间平均距离。

请问有哪个函数或者哪个包有这个功能，或者有没有求平均距离的简化公式？谢谢！

nan.xiao

<br />
x = read.table(textConnection('<br />
    NAME X Y T1 T2 T3 T4<br />
    A 20783.585 4150.393 1 0 1 1<br />
    B 20586.828 3557.383 0 1 0 1<br />
    C 20783.585 4150.393 0 1 1 1<br />
    D 20586.828 3557.383 1 1 1 1'), header = TRUE)</p>
<p>x = x[, -1]</p>
<p>coord = c('X', 'Y')<br />
timer = setdiff(names(x), coord)<br />
dists = rep(NA, length(timer))<br />
for (i in 1:length(timer)) dists[i] = mean(dist(x[x[, timer[i]] != 0, coord]))<br />

</p>

hygs

回复第2楼的肖楠：肖版主回复的好快啊，但是我还是没看懂您怎么解决坐标点组合问题的。

nan.xiao

先滤出了某列的非 0 行组成的数据，dist() 的输入就是这个矩阵型的数据，输出的是各行两两组合的距离，再 mean() 求平均值即可。

hygs

回复第4楼的肖楠：明白了，多谢肖版主指教！