Sometimes I actually use my experiments for real work. For example, I wanted to send an update on the Japanese Yen. This was a great opportunity to use the chart created in Shading and Points with xtsExtra plot.xts.
I was fairly pleased with the finished product (click here if embed does not show).
R sweave file from GIST: