Mathematica畢竟不是科技作圖軟體，因此

1、建議將資料匯出來，使用origin作圖

2、其實也不是不可以做出雙縱座標的圖，但是比較麻煩。需要從新定義函式，對原函式進行座標變換。例如：

f[x_] := 2 x + 1;

g[x_] := (-2 x)/10;

gt[x_] := g[x]*10;

Plot[{f[x], gt[x]}, {x, -5, 5}, Frame -> True, Axes -> False,

FrameTicks -> {{Automatic,

Thread@List[Range[-10, 10], Range[-10, 10]/10] // N}, {Automatic,

None}}]

畫的是f[x]和g[x]，f[x]使用左邊的縱座標刻度，g[x]使用右邊的縱座標刻度。gt[x]是將g[x]做了座標變換（將縱座標擴大10倍）。另外，需要自己定義Ticks的顯示函式。如果需要更美觀的顯示效果，還需要定義更復雜的Ticks顯示函式