Re: [問題] 畫圖上顏色的問題

看板R_Language作者PhysicsBoy (翟南)時間9年前 (2015/02/28 23:48)推噓0(0推 0噓 7→)

留言7則, 2人參與討論串3/3 (看更多)

※ 引述《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://www.ptt.cc/bbs/R_Language/M.1425138513.A.0F6.html