minor.tick()函数未如预期出现y轴刻度线

首先画一个图：

x<-c(1:10)
y<-x
z<-10/x
opar<-par(no.readonly=T)
par(mar=c(5,4,4,8)+0.1)
plot(x,y,type='b',
pch=21,col='red',
yaxt='n',lty=3,ann=F) #禁用y轴刻度.
lines(x,z,type='b',pch=22,col='blue',lty=2)
axis(2,at=x,labels=x,col.axis='red',las=2) #las=2表示刻度值垂直于坐标轴
axis(4,at=z,labels=round(z,digits=2),
col.axis='blue',las=2,cex.axis=0.7,tck=-0.1)
mtext('y=1/x',side=4,line=3,cex.lab=1,las=2,col='green') #line表示文本距离图框的距离。
title('An Example of Creative Axes',xlab='X values',ylab='Y=X',outer=F)

然后我想加一个次要刻度线，代码如下：
minor.tick(nx=2,ny=2,tick.ratio=0.5)

x轴已经实现了nx=2的预期效果，但是y轴却没有出现次要刻度线，请问这是因为什么？