Combining two plots on a single frame

Question

I want to plot two plots on a single frame. First is listplot and second is plot. for example,

 d1 = {{100, 0.1}, {1000, 0.5}, {10000, 0.9}} 
 d2= {{100,0.5},{1000,0.7},{10000,0.89}}
  ListPlot[{d1,d2}]
Plot[{-  0.01 Sin[0.0005 t + Pi/4],  - 0.01 Sin[
0.002 t  + Pi/4] }, {t, 0, 10000}]

Now the plot and listplot have same xaxis range whereas different yaxis range. I want to make frame's right yaxis for the plot and left yaxis for the listplot. How can I combine these plots on a single frame. I tried overlay but the export image size becomes huge in overlay.

Do answers at https://mathematica.stackexchange.com/questions/627/1-plot-2-scale-axis help? — murray, Jul 12 '21 at 14:32

score 8 · Accepted Answer · answered Jul 12 '21 at 14:33

8

Using ResourceFunction["CombinePlots"] with its "AxesSides" option:

d1 = {{100, 0.1}, {1000, 0.5}, {10000, 0.9}};
d2 = {{100, 0.5}, {1000, 0.7}, {10000, 0.89}};
ResourceFunction["CombinePlots"][
 ListPlot[{d1, d2}, Frame -> True],
 Plot[{-0.01 Sin[0.0005 t + Pi/4], -0.01 Sin[0.002 t + Pi/4]}, {t, 0, 10000}, Frame -> True],
 "AxesSides" -> "TwoY"
 ]

(Note that I set Frame->True for both plots)

answered Jul 12 '21 at 14:33

Lukas Lang

33,963
1
51
97

Thank you so much. – Sachin Kaushik Jul 12 '21 at 16:33
if you have older versions, this also works : https://reference.wolfram.com/language/howto/GeneratePlotsWithTwoVerticalScales.html – mrtydn Jul 15 '21 at 09:13

Combining two plots on a single frame

1 Answers1