※ 引述《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