[问题类型]:
程式咨询(我想用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 |