r - 用R对二进制序列进行排序

想象以下顺序：

由于相似性，我想按此顺序排序：

第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"