Plotting Binary Data In R