繁体   English   中英

如何在R中的向量中找到唯一的一对数字?

[英]How to find unique couples of numbers in a vector in R?

让我们假设有C<-c(1,2,3,4,5)我想找到可以从这个向量中提取的所有唯一的数字对,例如,12,13 23 等等。我该怎么做它?

使用RcppAlgos包。

## Combinations
unlist(RcppAlgos::comboGeneral(x, 2, FUN=function(x) Reduce(paste0, x)))
# [1] "12" "13" "14" "15" "23" "24" "25" "34" "35" "45"

## Permutations
unlist(RcppAlgos::permuteGeneral(x, 2, FUN=function(x) Reduce(paste0, x)))
# [1] "12" "13" "14" "15" "21" "23" "24" "25" "31" "32" "34" "35" "41" "42" "43"
# [16] "45" "51" "52" "53" "54"

一种选择可能是:

na.omit(c(`diag<-`(sapply(x, paste0, x), NA)))

 [1] "12" "13" "14" "15" "21" "23" "24" "25" "31" "32" "34" "35" "41" "42" "43" "45"
[17] "51" "52" "53" "54"

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM