#长期变化图
szB100b=xts(sz$B100b,order.by=as.Date(sz$Date.))
szB250b=xts(sz$B250b,order.by=as.Date(sz$Date.))
hsHB100b=xts(hs$HB100b,order.by=as.Date(hs$Date))
hsHB250b=xts(hs$HB250b,order.by=as.Date(hs$Date))
plot(szB100b,col="black",main="长期波动率走势",type="l",lwd=0.5,pch=19,cex=0.6)
lines(szB250b,col="blue",lwd=0.5)
lines(hsHB100b,col="red",lwd=0.5)
lines(hsHB250b,col="orange",lwd=0.5)
mtext(side=4,at=hsHB250b[length(hsHB250b)],text=" ",
col="orange",line=0.3,las=2)