r - 左右の Y 軸が正しくフォーマットされていない

Question

次のデータ (カウント) の棒グラフを作成したいとします。

 A     B     C     D 
3030  3049  3104  3018 

しかし、次のデータ（lg）の棒グラフに重なる線グラフも配置したい：

A 2.485294117647059
B 2.465160980297934
C 2.414123006833713
D 2.457267020762916

これはこれまでの私のコードです：

b<-barplot(counts,col='black',border=FALSE,axes=FALSE,cex.names = 0.75)

left.axis.pos<-c(quantile(counts))
axis(2,at=left.axis.pos,labels=left.axis.pos,las=2,cex.axis=0.75)
mtext("Number",side=2,line=3,cex=1)

right.axis.ticks<-c(quantile(as.numeric(lg[,2])))
axis(4,at=right.axis.ticks,labels = right.axis.ticks,las=2,cex.axis=0.75)
mtext("ratio",side=4,line=2,cex=1)

lines(lg[,1],as.numeric(lg[,2]), col='grey',lwd=2)
dev.off()

ただし、y 軸が上に行き過ぎているか (左)、下に行き過ぎています (右)。

元の PDF はDropbox でも入手できます。