R语言绘图添加次要刻度线

1、

library(Hmisc)
opar <- par(no.readonly = T)
par(mfrow=c(1,2))
plot(1:10)
plot(1:10)
minor.tick(nx=2,ny=3,tick.ratio = 0.5)
par(opar)

2、

library(Hmisc)
plot(1:10, tcl = -0.8, lwd.ticks = 5,pch = 16, col = "blue",cex = 2,)
minor.tick(nx = 2, ny = 2, tick.ratio = 0.5,
           x.args = list(pos = 0.62, lwd = 5),
           y.args = list(pos = 0.62, lwd = 5))
box(which = "plot", lwd = 5)