如何画二个Y轴？

五指山(zoof)

4890

收藏 2014-07-02

我想将柱状图和折线图在一个图里实现，数据如下：

复制代码

柱状图呈现的是不同商品的销售额，折线图呈现销售的数量，在一个图里实现，则需要2个Y轴（因为销售额和销售量的单位不同）

复制代码

硬放在一起，看不到折线图，如：

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

DM小菜鸟

2014-12-8 15:24:06

因为你的不知道哪个是销售额、哪个是销售量，我给你一个简单的例子，
你可以把这里面的身高和体重换成你的销售额和销售量～
d <- data.frame(name=c("zhao","qian","sun","li"),
                        weight=c(62,58,79,60),
                        height=c(178,169,180,173))
x <- d$name
y1 <- d$weight
y2 <- d$height

library(plotrix)xpos <- 1:4

twoord.plot(xpos,y1,xpos,y2,xlim=c(0,5),lylim=c(0,100),rylim=c(100,190), lcol=4,rcol=2,xlab="name",ylab="Weight (kg)",rylab="Height (cm)",type=c("bar","b"),xticklab=x,halfwidth=0.2)

dev.off()

是用plotrix作的