Horizontal Bars For Two Periods In R