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

我希望获得与下面相同的图表：

为此，我编写了以下代码：

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)

库（quantmod）
图书馆（树）
符号=c（“^GSPC”）
getSymbols（symbols，src=“yahoo”，from=“2001-01-02”，to=“2011-08-22”）
period=“每日”
DFI库引用中有标签选项吗？@Llopis，有。我在
text
上使用了标签选项，但什么也没发生