R source for plotting stock option open interest