語言中的大理石與甕R

Question

嗨，我是R語言新手，這裏有一個來自我們教授的HW問題，基本上是要求您隨機分配1123個彈珠到97個甕。您需要製作一個腳本來模擬這個過程，你需要得到一個有97個隨機分配數字的矢量，總和爲1123

所以這裏是我到目前爲止的。我很確定隨機分配的部分是可以的，只是我不知道如何使用櫃檯來總結同一個甕中的所有彈珠。任何人都可以幫忙嗎？謝謝你，謝謝你，謝謝你！

for(i in 1:1123){ 
    x=floor(runif(1,1,98)) 
    for (j in 1:97){ 
     Count=0 
     if (j=x){ 
     Count=Count+1 
     } 
    } 
print(Count) 
} 

Answer 1

所以你想要選擇1123次，在97個甕中放入大理石。 可以使用sample（見?sample）：

s <- sample(1:97, 1123, replace=TRUE) 

可以製表結果與table(s)（打印時有點混亂），或將其轉換爲data.frame，以 「檢查」：

df <- data.frame(table(s)) 
nrow(df)  # 97 urns 
sum(df$Freq) # 1123 marbles