我试图绘制直方图以模拟模具实验的以下函数
rm(list=ls())
roll<-function()
{
sample(1:6,size = 2,replace = 2)
}
rolls<-replicate(10000,roll())
qplot(rolls,aes(x=rolls),binwidth=1)
我收到以下错误&#34;错误:stat_bin需要以下缺失的美学:x&#34;
请帮忙。
答案 0 :(得分:1)
检查?qplot
。第一个和第二个参数是x
和y
。无论如何,如果您要模拟模具实验10,000次,则无需定义函数并使用replicate
。只需在size = 10000
中指定sample()
。
rm(list=ls())
rolls <- sample(1:6,size = 10000 ,replace = TRUE)
qplot(rolls, binwidth = 1)