rect_1d_graphics function

Rectangle plot in 1d using R's base graphics