如何在R语言中生成指定二进制字符串的目标排列？

首先得明确：你要的并不是传统意义上的全排列（全排列会包含大量重复结果，而你的需求是把原字符串中唯一的1移动到每一个不同的位置，其余位置保持0）。R语言里没有直接对应这个需求的单一函数，但我们可以用几个基础函数组合实现，代码非常简洁。

实现代码 #

# 定义原始二进制字符串
original_str <- "0010000"

# 把字符串拆分为单个字符的向量
char_vec <- strsplit(original_str, "")[[1]]

# 找到原始字符串中'1'的位置
original_1_idx <- which(char_vec == "1")

# 生成所有需要替换的目标位置（排除原始1的位置）
target_indices <- seq_along(char_vec)[-original_1_idx]

# 生成所有目标排列
output <- sapply(target_indices, function(idx) {
  temp <- char_vec
  temp[original_1_idx] <- "0"
  temp[idx] <- "1"
  paste(temp, collapse = "")
})

# 查看结果
output

运行这段代码后，你会得到预期的结果：

[1] "1010000" "0110000" "0011000" "0010100" "0010010" "0010001"

代码解释 #

• strsplit()：把字符串拆分成单个字符的向量，方便我们逐个位置修改。
• which()：定位原始字符串中1的位置，后续用来把它改回0。
• seq_along()：生成字符向量的索引序列，再排除原始1的位置，得到所有需要放置新1的位置。
• sapply()：遍历每个目标位置，复制原始字符向量、修改对应位置的字符，最后用paste()合并成完整字符串。

如果你的需求扩展到包含多个1的二进制字符串，我们可以调整逻辑，但针对你当前的场景，上面的代码完全可以满足需求。

内容的提问来源于stack exchange，提问作者Somayeh Ghazalbash