※ 引述《Neisseria (Neisseria)》之銘言：
: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
:
: [軟體熟悉度]:
: 請把以下不需要的部份刪除
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
:
: 現在有一個亂數程式，每次會從 1 至 48 中任意挑選不重覆的六個數字
: 我們假設我們選了 100 次，程式如下：
: mx <- NULL
: for (i in 1:100) { mx <- rbind(mx, sample(1:48, 6, replace = FALSE))}
: df <- NULL
: for (i in 1:dim(mx)[1]) {
: col <- NULL
: for (j in 1:48) {
: if (any(mx[i, ] %in% j)) {
: col <- cbind(col, j)
: } else {
: col <- cbind(col, NA)
: }
: }
: df <- rbind(df, col)
: }
: 我現在想畫以下的圖：
: 48 |
: 47 |