And why not show the x-axis with x increasing from left to right, as
is customary on most of this planet.
In 3D plots the option AxesEdge
specifies placement of the axes. Check this:
ListPlot3D[data,DataRange->{{-2,2},{-2,2}},AxesEdge->{{-1,-1},{-1,-1},{-1,-1}}]