如何在R中生成指定数量的唯一随机数

Question

我正在尝试使用import xlrd import xlwt workbook1 =xlrd.open_workbook('Z:\Public\Safety\SafetyDataPullProject\TestFile.xlsx', on_demand = True) sheet_no = len(workbook1.sheet_names()) for sheets in range(0,int(sheet_no)-1): worksheet = workbook1.sheet_by_index(sheets) print(worksheet.cell(5,5).value) 生成25个随机数，其范围为（1:10）。问题出在25个生成的数字中，有时只有7或8个唯一数字。我希望所有10个数字都在1-10之间。

下面是一个描述数字9缺失的问题的示例：

sample(rep(1:10), 25, replace = TRUE)

Answer 1

怎么样？

set.seed(7)
x <- c(sample(1:10, 10), sample(1:10, 15, replace = T))
length(unique(x))
x

[1] 10  4  1  8  2  9  6  3  7  5  2  3  8  1  5  1  6  1 10  4  7  3 10 10 10

根据评论，它甚至更短：sample(c(1:10, sample(1:10, 15, replace = T)), 25)