Стандартный Plot/ListPlot такой возможности не предоставляет.
Смотрите опцию ScalingFunctions в хелпе.
Для диода такое хотели?
Код:
a[v_] := 0.001*(Exp[v/(2*0.02585)] - 1);
sfy = Piecewise[{{#1, #1 > 0}, {#1*1000, #1 <= 0}}] &;
sfyr = Piecewise[{{#1, #1 > 0}, {#1/1000, #1 <= 0}}] &;
ticks = Join[Table[i, {i, 0, 10}], Table[-i/1000., {i, 1, 2}]]
Plot[a[v], {v, -1, 0.6}, PlotRange -> {-0.002, 10},
ScalingFunctions -> {sfy, sfyr}, AxesOrigin -> {0, 0},
Ticks -> {Automatic, ticks}]