好了,我们不能让你诉诸for循环,我们现在可以:)
当然有如何表示稀疏矩阵的问题。一个简单的方法是让它只包含最近点的索引(并根据需要重新计算)。但在下面的溶液中,我把二者的距离(“D1”等)和索引(“I1”等)在一个单一的矩阵:
sparseDist <- function(m, k) {
m <- t(m)
n <- ncol(m)
d <- vapply(seq_len(n-1L), function(i) {
d<-colSums((m[, seq(i+1L, n), drop=FALSE]-m[,i])^2)
o<-sort.list(d, na.last=NA, method='quick')[seq_len(k)]
c(sqrt(d[o]), o+i)
}, numeric(2*k)
)
dimnames(d) <- list(c(paste('d', seq_len(k), sep=''),
paste('i', seq_len(k), sep='')), colnames(m)[-n])
d
}
尝试出来9 2D点:
> m <- matrix(c(0,0, 1.1,0, 2,0, 0,1.2, 1.1,1.2, 2,1.2, 0,2, 1.1,2, 2,2),
9, byrow=TRUE, dimnames=list(letters[1:9], letters[24:25]))
> print(dist(m), digits=2)
a b c d e f g h
b 1.1
c 2.0 0.9
d 1.2 1.6 2.3
e 1.6 1.2 1.5 1.1
f 2.3 1.5 1.2 2.0 0.9
g 2.0 2.3 2.8 0.8 1.4 2.2
h 2.3 2.0 2.2 1.4 0.8 1.2 1.1
i 2.8 2.2 2.0 2.2 1.2 0.8 2.0 0.9
> print(sparseDist(m, 3), digits=2)
a b c d e f g h
d1 1.1 0.9 1.2 0.8 0.8 0.8 1.1 0.9
d2 1.2 1.2 1.5 1.1 0.9 1.2 2.0 NA
d3 1.6 1.5 2.0 1.4 1.2 2.2 NA NA
i1 2.0 3.0 6.0 7.0 8.0 9.0 8.0 9.0
i2 4.0 5.0 5.0 5.0 6.0 8.0 9.0 NA
i3 5.0 6.0 9.0 8.0 9.0 7.0 NA NA
并试图解决更大的问题(10k点)。尽管如此,在100k点和更多维度上需要很长时间(比如15-30分钟)。
n<-1e4; m<-3; m=matrix(runif(n*m), n)
system.time(d <- sparseDist(m, 3)) # 9 seconds on my machine...
P.S.刚才注意到,当我写这篇文章时,你发布了一个答案:这里的解决方案大概是两倍的速度,因为它不会计算两次相同的距离(点1和点13之间的距离与点13和点1之间的距离相同)。
只要确保...你知道'dist' http:// stat。 ethz.ch/R-manual/R-patched/library/stats/html/dist.html,对吗? – Benjamin 2011-04-06 17:08:21
对不起,我不清楚为什么dist()不适合我的情况。它导致了一个稠密的矩阵,并且存储NxN矩阵有点烦人。 – 2011-04-07 01:10:41
您应该或者接受其中一个答案,您认为它实际上回答了问题(如果您认为它最合适,那么是您自己的问题),或者编辑您的问题以澄清问题的原因。 – Tommy 2011-07-25 16:45:58