Re: [問題] 折線圖+長條圖呈現

[celestialgod (天)]

※ 引述《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://www.ptt.cc/bbs/R_Language/M.1479400776.A.7DD.html
→ andrew43: 除了這三種主流，不知道有沒有新的有潛力的繪圖包？
plotly, rchart都是用JS庫算是第四種畫圖庫吧，用JS庫畫圖呈現動態效果...

只是用的比例應該還是比較少，畢竟會使用的人就是需要比較fancy呈現效果的人

資料分析查驗之類的資料分析事前工作應該還是以靜態圖為主

→ andrew43: 嗯謝謝。這些在是網頁介面較有用對吧？如果是靠JS的話
恩，主要是拿來報告用吧XD  還有連結shiny
※ 編輯: celestialgod (36.232.189.75), 11/18/2016 00:47:35
→ andrew43: 了解。謝謝。
→ samex4x4: 真的感謝大家的回應XD 學到很多