如何更改quantmod图表的标题和日期？

Question

我正在使用这样的quantmod;

library(quantmod)
d<- data.frame(Open = rep(2,10), High = rep(5,10), Low = rep(1,10),  Close = rep(4,10), Volume = rep(100,10))
head(d)
data<-as.xts(d, tzone = Sys.getenv("GMT"), order.by =as.POSIXct(as.character(seq(as.Date("2015/1/1"), as.Date("2015/1/10"), "day"))))
chartSeries(data )

生成如下图表：

如何更改图表上方显示的文字。你可以看到＆＃34;数据＆＃34;以及我放入红色框的日期。如何更改标题和日期？

谢谢。