如何画二个Y轴？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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

1. item <- c('钢笔','圆珠笔','铅笔','白板笔','毛笔','碳水笔')
   
2. times <- c(129,1,1,60,7,1)
   
3. sales <- c(9330,8,50,4867,500,50)
   
4. data <- data.frame(item,tiems,sales)

复制代码

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

1. p <- ggplot(data = data, aes(x = item,y = sales))
   
2. p <- p + geom_bar(stat="identity",fill=data$sales)
   
3. p <- p + geom_line(data=data,aes(x=item,y=times,group=1), color='red4')
   
4. print(p)

复制代码

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

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：item 柱状图 折线图 TEM 如何

因为你的不知道哪个是销售额、哪个是销售量，我给你一个简单的例子，
你可以把这里面的身高和体重换成你的销售额和销售量～       
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作的
  

DM小菜鸟 发表于 2014-12-8 15:24
因为你的不知道哪个是销售额、哪个是销售量，我给你一个简单的例子，
你可以把这里面的身高和体重换成你的 ...

这样做的话，假如y1，y2有负值就出错了

完全按照楼上的代码，用于我的数据就提示如下：Error in `[.data.frame`(data, ly) : undefined columns selected
请问楼上是否有高招，知道这是什么原因吗？

xie xie. very help me.