作者celestialgod (天)
看板R_Language
标题Re: [问题] 折线图+长条图呈现
时间Fri Nov 18 00:39:33 2016
※ 引述《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://webptt.com/cn.aspx?n=bbs/R_Language/M.1479400776.A.7DD.html
1F：→ andrew43: 除了这三种主流，不知道有没有新的有潜力的绘图包？ 11/18 00:43
plotly, rchart都是用JS库算是第四种画图库吧，用JS库画图呈现动态效果...
只是用的比例应该还是比较少，毕竟会使用的人就是需要比较fancy呈现效果的人
资料分析查验之类的资料分析事前工作应该还是以静态图为主
2F：→ andrew43: 嗯谢谢。这些在是网页介面较有用对吧？如果是靠JS的话 11/18 00:47
恩，主要是拿来报告用吧XD 还有连结shiny
※ 编辑: celestialgod (36.232.189.75), 11/18/2016 00:47:35
3F：→ andrew43: 了解。谢谢。 11/18 00:48
4F：→ samex4x4: 真的感谢大家的回应XD 学到很多 11/18 13:02