Выровнять сетку с тиками

Question

Когда я позволю plot нарисовать ось, grid совпадает с ticksby default.

Однако мой сюжет несколько запутан:

mytime <- as.POSIXct("2015-08-20") + seq(0,by=3600,length.out=7*24) 
plot(x=mytime,y=rnorm(7*24),xaxt="n") 
ticks <- mytime[seq(1,by=12,to=length(mytime))] 
axis(1, ticks, strftime(ticks, "%a %H:%M")) 
grid(ny=NULL,nx=14) 

, и я не могу получить grid для согласования с ticks:

Как сделать их выровнять?

Answer 1

Похоже ответ:

mytime <- as.POSIXct("2015-08-20") + seq(0,by=3600,length.out=7*24) 
plot(x=mytime,y=rnorm(7*24),xaxt="n") 
ticks <- c(mytime[seq(1,by=12,to=length(mytime))],mytime[1]+7*24*3600) 
axis(1, ticks, strftime(ticks, "%a %H:%M")) 
grid(ny=NULL,nx=NA) 
abline(v=ticks[seq(1,length(ticks),2)],lty="dotted",col="lightgray")