sample（）不随机抽样？

Question

有人可以解释这里出了什么问题吗？我想模拟10,000个20面骰子卷。我用了这段代码：

x <- sample(1:20,10000,replace=T)

但是这给了我这个：

hist(x)

这似乎是12以上的问题：

我在这里不理解什么？ 感谢

Answer 1

实际上并不是与sample有关，而是hist。

如果你这样做

set.seed(1)
x <- sample(1:20,10000,replace=T)
table(x)

  1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20 
513 522 482 495 459 549 506 505 518 498 495 492 440 490 459 509 496 528 511 533 

你会注意到它是随机的。但是hist会重现您的图表。如果计算数字，你会注意到有19个而不是20个。

尝试这样做：

bins <- seq(0, 20, by=1)
hist(x, breaks=bins)

给出一个条形高度均匀的图表，因为显示了所有20个条形图（即1和2不会折叠在一起）。