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)
