R语言双纵坐标轴实现 (转)

李小浩44

#先画第一个图
weight <- c(1, 2, 3, 4)
height <- c(1, 2, 3, 4)
par(mar=c(4,4,4,4))
plot(weight~height,xlab="height",ylab="weigth",type="b",axes=F)
axis(1)
axis(2)

#再在同一个图上画第二个图，这里再用par函数等于在第一个图上重新再画一次
year <- c(4, 3, 2, 1)
height <- c(1, 2, 3, 4)
par(new=T,mar=c(4,4,4,4))
plot(year~height, type="o", axes=F, ann=F)
axis(4,col="red",col.axis="red")
mtext("year",4,2)

转载地址：
http://blog.sina.com.cn/s/blog_6c9eaa150101cx14.html

liuyupei

留下yihuo

mine

有用，收藏下

zcvb6

谢谢分享，学习了