library(quantmod)
data_origin=read.csv("data.csv",header = F)
data<-data.frame(Open=data_origin[,2],High=data_origin[,3],Low=data_origin[,4],Close=data_origin[,5],Volume=data_origin[,7],Adjusted=data_origin[,6])
rownames(data)<-as.Date(as.character(data_origin$V1),"%Y%m%d")
chartSeries(data)
用xlim或者ylim命令。比如：# Specify axis options within plot()
plot(x, y, main="title", sub="subtitle",
xlab="X-axis label", ylab="y-axix label",
xlim=c(xmin, xmax), ylim=c(ymin, ymax))
