rec = {{-2, 0}, {-1, 0}, {-1, 1}, {1, 1}, {1, 0}, {2, 0}}

recplot = ListPlot[rec, PlotRange->{0, 1.5}, Joined->True]

Export["~/Documents/ph3/labs/mathematica/week6/recplot.pdf", recplot, "PDF"]