如何在树回归图中显示时间

Question

我想获得如下相同的图表：

为此，我写下这些代码：

library(quantmod)
library(tree)
symbols=c('^GSPC')
getSymbols(symbols,src="yahoo", from="2001-01-02", to="2011-08-22")
period="daily" 
df<-as.data.frame(GSPC)
df<-cbind(date=as.Date(rownames(df)),df)
Ndata<-df[,c(1,7)]
A<-abs(log(Ndata[,2]/Lag(Ndata[,2])))
Ntree<-tree(A~as.ts(Ndata[,1]))
plot(Ntree)
text(Ntree,cex=0.75)

并获得此图：

我怎样才能像第一个那样获得与我的情节相同的标签（第一个情节中显示的时间）？