very simple example of shading and adding points to R xtsExtra plot.xts