作者celestialgod (天)
看板R_Language
標題Re: [問題] 折線圖+長條圖呈現
時間Fri Nov 18 00:39:33 2016
※ 引述《samex4x4 (Same)》之銘言：
: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
:
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
: 想詢問是否有辦法同時畫出長條圖和摺線圖在一張圖表上？
: 兩者是不同的數值(取不同欄位)
: 大概是長這樣
: http://imgur.com/b5XELZF.jpg
: 謝謝QQ
: [程式範例]:
:
:
: [環境敘述]:
:
: 3.3.2
:
: [關鍵字]:
:
: 選擇性，也許未來有用
:
我也要跟個風，發個畫圖文XDD
我這裡提供lattice的寫法
ggplot跟傳統繪圖都不能做到自動雙軸align
使用lattice就可以輕鬆達成了
恭喜原PO集齊R三大畫圖系統XDDDD
資料是用andrew43大大的
dt <- data.frame(
x = 1:8,
freq = c(120,130,140,150,160,170,170,180),
earn = c(3,3,5,4,6,7,3,5) * 0.1
)
library(lattice)
library(latticeExtra)
barChart <- barchart(freq ~ x, dt, horizontal = FALSE,
scales = list(x = list(at=1:8,
labels=rep(paste0("Q", 1:4), 2))),
xlab = NULL, ylab = NULL)
lineChart <- xyplot(earn ~ x, dt, type = "l", xlab = NULL, ylab = NULL)
doubleYScale(barChart, lineChart, add.axis = TRUE)
結果圖：
http://imgur.com/wKxqCuL
--
R資料整理套件系列文：
magrittr #1LhSWhpH (R_Language) https://goo.gl/OBto1x
data.table #1LhW7Tvj (R_Language) https://goo.gl/QFtp17
dplyr(上.下) #1LhpJCfB,#1Lhw8b-s (R_Language) https://goo.gl/GcfNoP
tidyr #1Liqls1R (R_Language) https://goo.gl/pcq5nq
pipeR #1NXESRm5 (R_Language) https://goo.gl/cDIzTh
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.232.189.75
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1479400776.A.7DD.html
1F：→ andrew43: 除了這三種主流，不知道有沒有新的有潛力的繪圖包？ 11/18 00:43
plotly, rchart都是用JS庫算是第四種畫圖庫吧，用JS庫畫圖呈現動態效果...
只是用的比例應該還是比較少，畢竟會使用的人就是需要比較fancy呈現效果的人
資料分析查驗之類的資料分析事前工作應該還是以靜態圖為主
2F：→ andrew43: 嗯謝謝。這些在是網頁介面較有用對吧？如果是靠JS的話 11/18 00:47
恩，主要是拿來報告用吧XD 還有連結shiny
※ 編輯: celestialgod (36.232.189.75), 11/18/2016 00:47:35
3F：→ andrew43: 了解。謝謝。 11/18 00:48
4F：→ samex4x4: 真的感謝大家的回應XD 學到很多 11/18 13:02