How to create a second y-axis in plot in mathematica?

Question

There are two plots with same x-axis. The y-axis value for one plot is much smaller than the other. So plot#1 appears squashed compared to the other. I do not want to use a log scaling or any other type of scaling. How to create a secondary axis Show plot such that the scales for both Plot1 and Plot2 are displayed on either side?

Plot1 = Plot[{Sin[t]}, {t, -10, 10}] 
Plot2 = Plot[{500*Cos[t]}, {t, -10, 10}] 
Show[Plot1, Plot2]

score 3 · Answer 1 · answered Mar 21 '23 at 23:16

Clear["Global`*"]

ResourceFunction["MultipleAxesPlot"][{Sin[t], 500*Cos[t]}, {t, -10, 10}]

data = Transpose@Table[{{t, Sin[t]}, {t, 500*Cos[t]}}, {t, -10, 10, 1/10}];
ResourceFunction["MultipleAxesListPlot"][data, Joined -> True]

Or with ListLinePlot you can use MultiaxisArrangement

ListLinePlot[data,
 MultiaxisArrangement -> All]

How to create a second y-axis in plot in mathematica?

1 Answers1