※ 引述《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 |