如何在R中生成横竖方向均无重复值的随机整数矩阵

你需要的这种矩阵本质是拉丁方，每行、每列都包含指定范围内的所有整数各一次，没有重复值。

实现思路 #

• 基础逻辑：对初始的整数序列做随机循环移位，每一行的移位步长随机且不重复，就能同时保证行、列无重复值，和你给出的示例逻辑完全匹配
• 工业级实现：直接调用R生态的成熟工具包生成，稳定性更高，也支持生成大尺寸矩阵

可直接运行的代码 #

方法1：基础循环移位实现（适配你的示例逻辑） #

# 设定矩阵阶数，比如示例的4阶对应1-4的数值范围
n <- 4
base_vec <- 1:n
# 生成随机不重复的移位步长
shift_steps <- sample(0:(n-1), n)
# 按步长逐行生成矩阵
result_mat <- t(sapply(shift_steps, function(step) {
  c(tail(base_vec, step), head(base_vec, n - step))
}))
# 输出结果
print(result_mat)

如果生成的移位步长为0,1,2,3，输出结果就和你给出的示例完全一致。

方法2：调用内置工具包实现（更稳定） #

# 首次使用先安装依赖包
install.packages("magic")
library(magic)
# 生成n阶随机拉丁方
n <- 4
result_mat <- rlatin(n) + 1 # rlatin默认生成0到n-1的取值，加1即可转为1到n的范围
print(result_mat)

正确性验证 #

运行以下代码即可快速验证矩阵符合要求：

# 验证所有行无重复值
all(apply(result_mat, 1, function(x) length(unique(x))) == n)
# 验证所有列无重复值
all(apply(result_mat, 2, function(x) length(unique(x))) == n)

输出都为TRUE即符合要求。

内容的提问来源于stack exchange，提问作者Aolin Gong