這裡提供傳統內建的畫法。
基本上就是先畫柱再加折線。
# 假資料
dt <- data.frame(
freq = c(120,130,140,150,160,170,170,180),
earn = c(3,3,5,4,6,7,3,5) * 0.1
)
# 柱值和線值尺度上差很多需要調整的比例
y1.y2.ratio <- 500
# 第一縱軸值
y4.axis.val <- c(0, 100, 200, 300, 400)
# 畫柱，不畫第一縱軸
bp <- barplot(dt$freq, ylim = c(0, 400), yaxt = "n")
box()
# 畫折線
lines(bp, dt$earn * y1.y2.ratio, col = 2)
# 補畫各個軸
axis(1, bp, paste0("Q", rep(1:4, 2)))
axis(1, c(2, 7.3), c("2013", "2014"), line = 2, tick = F)
axis(2, y4.axis.val)
axis(4, y4.axis.val, y4.axis.val / y1.y2.ratio, col = 2, col.axis = 2)
※ 引述《samex4x4 (Same)》之銘言：
: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
:
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
: 想詢問是否有辦法同時畫出長條圖和摺線圖在一張圖表上？
: 兩者是不同的數值(取不同欄位)
: 大概是長這樣
: http://imgur.com/b5XELZF.jpg
: 謝謝QQ
: [程式範例]:
:
:
: [環境敘述]:
:
: 3.3.2
:
: [關鍵字]:
:
: 選擇性，也許未來有用
:

用基本繪圖刻圖 就是純粹的基本功阿阿....我最討厭調那個ratio了XDD 我都偷懶用套件...

是啊。內建畫法的缺點就是一個指令一個動作很不人性化

佩服有耐心毅力用內建畫法慢慢刻我認識不少這種人XDD 我個人還是走懶散路線就好

XD

感謝andrew大，一整串看下來看到好多畫法XD

傳統畫法有太多秘技眉角（這是缺點），有不明白之處歡迎再提問。