r-如何使用text（）模拟轴（）？

plotrgnsize=function() {
    m = par('mai')
    o = par('omi')
    dev.size()-c(
        sum(m[c(2, 4)] + o[c(2, 4)])
        , sum(m[c(1, 3)] + o[c(1, 3)])
    )
}
rotaxis=function(side, at, labels, line=0, pos=side, ...) {
    margin_coor =   diff(par('usr')[3:4])/plotrgnsize()[2] * par('mai')[1]*(line+1)/par('mar')[1]
    graphics::text(x=at, y=10^(par('usr')[3]-margin_coor), xpd = NA, labels = labels, pos=pos, ...)
}
plot(1:10, 1:10, log='y')
rotaxis(1, 5, labels='line -1', line=-1)
rotaxis(1, 5, labels='line 0', line=0)
rotaxis(1, 5, labels='line 1', line=1)
rotaxis(1, 5, labels='line 2', line=2)
rotaxis(1, 5, labels='line 3', line=3)

我在努力模仿axis()在…的支持下srt或中不可用的其他参数text().

plot(1:10, 1:10, log='y')
axis(1, 5, labels='line -1', line=-1)
axis(1, 5, labels='line 0', line=0)
axis(1, 5, labels='line 1', line=1)
axis(1, 5, labels='line 2', line=2)
axis(1, 5, labels='line 3', line=3)

正如你所见，标签是y-位置不完全相同。如何使y位置完全相同？