如何在chartseries上添加标记

chartseries 画出k线图 后

需要在某个k线图中 做个标记 ，用 points（x,y,pch=24）

chartSeries(out.Data[,-5],theme="white",name=as.character(k))

chartseries画出来横轴是时间 但是  指定 x为时间 后 points画出来的位置对不上，时间轴的x应该如何表达  跪求

比如 我要在2014-12-05 的时间点 做个标记  在points中 x应该写多少

比如SAM数据
chartSeries(SAM[1:5,],TA=NULL)
x = Cl(SAM[4,])
addTA(x,type='p',col='red',on=1,pch=25,legend="")