R 双纵坐标

R 左右两个纵坐标

#生成数据
y1<-sample(c(1:100),80,replace=T)
y2<-data.frame(c1=seq(0,100,20),c2=seq(0,1,0.2))
#绘图
par(mar=c(5,5,5,5))
hist(y1,col=”steelblue”,xlim=c(0,100))
par(new=T)#在上一张图片上画图
plot(y2[,1],y2[,2],type=”b”,pch=19,col=”maroon”,xlim=c(0,100),ylim=c(0,1),yaxt=”n”,xaxt=”n”,xlab=”“,ylab=”“)#yaxt=”n”,xaxt=”n”不绘制x,y轴，xlim取和hist里一样的范围
axis(4,seq(0,1,0.2),seq(0,1,0.2))#4代表在右侧绘制坐标轴，1,2,3,4代表下，左，上，右
mtext(“y2”,4,line=2)#定义右侧坐标轴名称，4代表右侧 同上，line限定名称距离坐标轴距离