dplyr中的欧几里得距离R

如何计算通过一些处理分组的观测值之间的距离矩阵。数据dplyr中的欧几里得距离R

例子：

set.seed(1212) 
df <- data.frame(yta = c(rep("A", 3), rep("B", 3)), x = rnorm(6, 10, 2), y = rnorm(6, 40, 12))

我想要得到的输出使用split，lapply和bind_rows这样

  1   2   3   4   5   6 
1   4.234690 25.858459   0   0   0 
2 4.234690   23.503327   0   0   0 
3 25.858459 23.503327     0   0   0 
4   0   0   0   9.330203 9.277692 
5   0   0   0 9.330203   18.371015 
6   0   0   0 9.277692 18.371015

来源

2015-10-05 Mateusz1981

你确定输出是正确的吗？ – zx8754

这是错误的。现在的值是计算出来的，不管“yta”如何，我手动插入0。这些数字在正确的输出中会有所不同，因为距离将被计算为'yta' wise – Mateusz1981

提供代码如何创建输出 – zx8754

事我们可以得到这样的事情：

df %>% split(., (.)$yta) %>% lapply(function(df_part) df_part %>% select(-yta) %>% as.matrix %>% 
             dist(upper = T) %>% as.matrix %>% as.data.frame) %>% 
    bind_rows %>% mutate(yta = df$yta) 

# Source: local data frame [6 x 7] 
# 
#   1  2   3  4   5   6 yta 
# 1 0.000000 28.43909 4.350409  NA  NA  NA A 
# 2 28.439090 0.00000 32.038712  NA  NA  NA A 
# 3 4.350409 32.03871 0.000000  NA  NA  NA A 
# 4  NA  NA  NA 0.00000 20.267301 29.106135 B 
# 5  NA  NA  NA 20.26730 0.000000 9.116934 B 
# 6  NA  NA  NA 29.10614 9.116934 0.000000 B

来源

2015-10-05 10:50:38 inscaven

dplyr中的欧几里得距离R

回答

相关问题