请教R怎么画双坐标做图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

R中怎么画双坐标做？有什么命令？谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：双坐标 请教 坐标

axis看看，不知道有没有

这个不用包，就可以实现——  
par(mar=c(5,5,4,5)+0.1)
bar <- barplot(y1,xlim=c(0,5),ylim=c(0,100),ylab="Weight (kg)",col="blue",col.axis="blue",col.lab="blue")
mtext(x,side=1,line=1,at=bar,col="black")
mtext("Name",side=1,line=3,col="black")
par(new=T)
plot(bar,y2,axes=F,xlim=c(0,5),ylim=c(100,190),xlab="",ylab="",col="red",type="b")
axis(4,col="red",col.ticks="red",col.axis="red")
mtext("Heigth (cm)",side=4,line=3,col="red")
dev.off()
   
这个是用plotrix 做的，你也可以参考下——
   
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()