想象以下顺序:
0000
0001
0010
0011
0100
0101
0110
0111
1000
1001
1010
1011
1100
1101
1110
1111
由于相似性，我想按此顺序对序列进行排序:
0000
0001
0010
0100
1000
0011
...
第2、3、4、5行与第1行具有相同的相似性，因为它们仅相差一位。因此，第2、3、4、5行的顺序也可以是3、2、5、4。
第6行紧随其后，因为它与第1行相差2位。
可以用R完成吗？
最佳答案
让
x <- c("0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111",
"1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
1)使用this的
digitsum函数回答:digitsum <- function(x) sum(floor(x / 10^(0:(nchar(x) - 1))) %% 10)
x[order(sapply(as.numeric(x), digitsum))]
# [1] "0000" "0001" "0010" "0100" "1000" "0011" "0101" "0110" "1001" "1010" "1100"
# [12] "0111" "1011" "1101" "1110" "1111"
2)使用正则表达式:
x[order(gsub(0, "", x))]
# [1] "0000" "0001" "0010" "0100" "1000" "0011" "0101" "0110" "1001" "1010" "1100"
# [12] "0111" "1011" "1101" "1110" "1111"
关于r - 用R对二进制序列进行排序，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/38383625/