※ 引述《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)
结果图：

除了这三种主流，不知道有没有新的有潜力的绘图包？嗯谢谢。这些在是网页接口较有用对吧？如果是靠JS的话了解。谢谢。

真的感谢大家的回应XD 学到很多