r - 在 R 中重复的固定样本的直方图 - 出了点问题

Question

我有一个数字列表（101 个数字）-

    > asnum<-as.numeric(as.character(unlist(data[[1]])))
> asnum
  [1]   7.1652348   5.6665965   4.4757553   4.8497086  15.2276296  -0.5730937   4.9798067
  [8]   2.7396933   5.1468304  10.1221489   9.0165661  65.7118194   5.5205704   6.3067488

我需要采样 1000 个观察值，保存样本并绘制它的直方图。

我写了这段代码-

    set.seed(1) #save my sample
sample_1000_times<-sample(asnum,1000, replace=TRUE)#sample 1000 times with replace
hist(sample_1000_times)

但它看起来并不好。

我需要这样做 -

有什么帮助吗？

标签： rprobability