作者Neisseria (Neisseria)
看板R_Language
标题[问题] 绘制事件图
时间Tue May 2 23:13:31 2017
[问题类型]:
程式谘询(我想用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 | --- ------
46 |
...
5 | --------
4 |
3 |
2 | -----
1 | ---
---------------... -------
1 2 3 4 5 6 7 99 100
简单地说，若该数字出现，则画水平线，若未出现，则不画线
如果各位觉得这整个事件很像某个生活中发生的事，那纯属巧合 XD
[程式范例]:
本来想用 ggplot 画，但现在已经不要求了，有图就好
如果有一些比较基本的绘图函式，可以自行组合也不错
因为 R 的函数包得太好了，要自已画一些其他类型的图反而不知怎麽画
[环境叙述]:
对本题无明显帮助
[关键字]:
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.105.250.50
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1493738014.A.1F4.html
※ 编辑: Neisseria (112.105.250.50), 05/02/2017 23:16:07
※ 编辑: Neisseria (112.105.250.50), 05/02/2017 23:18:06