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

作者: celestialgod (天)   2016-11-18 00:39:33
※ 引述《samex4x4 (Same)》之銘言:
: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情,但是我不知道要怎麼用R 寫出來)
:
: [軟體熟悉度]:
: 入門(寫過其他程式,只是對語法不熟悉)
: [問題敘述]:
: 想詢問是否有辦法同時畫出長條圖和摺線圖在一張圖表上?
: 兩者是不同的數值(取不同欄位)
: 大概是長這樣
:
" target="_blank">" class="img-responsive" />
: 謝謝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)
結果圖:
作者: andrew43 (討厭有好心推文後刪文者)   2016-11-18 00:43:00
除了這三種主流,不知道有沒有新的有潛力的繪圖包?嗯謝謝。這些在是網頁介面較有用對吧?如果是靠JS的話了解。謝謝。
作者: samex4x4 (Same)   2016-11-18 13:02:00
真的感謝大家的回應XD 學到很多

Links booklink

Contact Us: admin [ a t ] ucptt.com