r - グリッドを目盛りに合わせる

Question

plot軸を描画させると、デフォルトで に揃えられgridます。ticks

ただし、私のプロットは多少複雑です。

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:

それらを整列させるにはどうすればよいですか？