请问如何设置绘制zoo对象时间序列时的tick ？

cooooocat

有如下程序，生成zoo时间序列（从2014年1月1日到2015年1月7日），画出的图片却只有两个tick，2014和2015，是否有语句可以设置增加几个tick，自动显示年月?
请大家帮忙指点。。。
——————————————————————————————————
TimeLine1 <- as.Date(data1Timeline)Price1<&#8722;startPrice+cumsum(data1XGPCPL)
TimeLine2 <- as.Date(data2Timeline)Price2<&#8722;data2NYHCG

Dmtc <- zoo(Price1,TimeLine1);
Intl <- zoo(Price2,TimeLine2);

tsts<-merge(Dmtc,Intl);
rng <- range(time(tsts))
tsts <- merge(tsts, zoo(, seq(rng[1], rng[2], by = "day")))
tsts <- na.locf(tsts)
tsts=na.omit(tsts);


plot.zoo(tsts, plot.type="single",lwd=c("3","3"),col=c("red","blue"))+grid()
——————————————————————————————————