※ 引述《celestialgod (攸蓝)》之铭言： : ※ 引述《PhysicsBoy (翟南)》之铭言： : : [问题叙述]: : : 假设有两个一维阵列，分别是A和B : : A = c(25到30之间的数字，有重复) : : B = c(19当23之间的数字，有重复) : : 意即B里面的数字一定都小於A : : 接着我想将A和B画直方图在同一张图上，该图乃表示个别数字出现次数的统计图 : : 也就是X轴是表示A和B出现的数字，Y轴是该数字出现的次数 : : 现在我想将A和B以不同颜色画出 : : 也就是如果A的直方图是蓝色，那B就以不是蓝色的颜色画出 : : 问题在此，可否有办法使用plot函式直接一次画出来??? : : 而不是先画一半(如先画A)後再用point补上另外一半(再画B) : : 以上请教，谢谢! : 据我所知，plot做不到，利用lattice的formula and groups : 可以轻松做到这一点，code范例如下： : A = sample(25:30, 100, replace = TRUE) : B = sample(19:23, 100, replace = TRUE) : library(lattice) : dat = stack(data.frame(A, B)) : histogram( ~ values, groups = ind, data = dat, #以下只是细部设定 : type = "density", breaks = 18:31, ylim = c(0, 0.5), : par.settings = simpleTheme(col = c("cyan","yellow")), 刚刚我试着改颜色，分别是将cyan都改成red，而yellow改成blue : auto.key = list(columns = 2, col = c("cyan","yellow"), 当然上面这行的也有改 : text = c("Data A", "Data B")), : panel = function(...) panel.superpose(...,panel.groups=panel.histogram, : col = c("cyan","yellow"), alpha = 0.4)) 上面这行的也改 最後图示在此 http://ppt.cc/XXTj 直方图的蓝色跟红色不是那麽的蓝色跟红色 请问这该如何解决呢? 谢谢 : 另外，ggplot2也可以做到，简单范例如下： : ggplot(dat, aes(values)) + geom_histogram(binwidth = 1, : position = "identity", aes(fill = factor(ind)), colour = "black") + : scale_fill_discrete(name="DataSet") : 就学习难易度来说，ggplot2是简单许多，而且颜色不用手动设定， : lattice很多都需要自己设定，比较复杂， : 我个人偏好lattice，只是比较喜欢他的程式写法 : 我不是很习惯用ggplot2的风格... : 另外，ggplot2是base on lattice做的，而且lattice画图会比较快 : (reference: http://tinyurl.com/lyu857e ) -- 离开你的视线~让情绪完完整整的宣泄~ 我想今夜就这样吧~ 反正孤独也无所谓~ --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.240.112.61 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1425138513.A.0F6.html