t(x):=1/2*x-4$

xy:makelist([x,t(x)],x,-4,4);

wxplot2d([t(x),[discrete,xy]],[x,-4,4],[y,-8,2],
[style, [lines,1,1],[points,2,2,2]],
[gnuplot_preamble, "set zeroaxis;"])$